Паскаль var a, b, c, d, x1, x2: integer; begin a: =1; b: =2; c: =1; d: =b*b-4*a*c; if ( d< 0) then writeln ('действительных корней нет') else begin x1: =(b-sqrt(d))/(2*a); x2: =(b+sqrt(d))/(2*a); end; end. вопрос, что я делаю не так, если выбивает эту ошибку: program2.pas(9, 6): нельзя преобразовать тип real к integer

1)переменные d,x1,x2 сделайте не целые(integer), а действительные числа(real) 2) в программе нет вывода корней (write(x1,'   ',x2)

16 секунд петр качал файл в гордом одиночестве. скорость закачки равнялась 24 мбайт/сек. за это время он скачал 16 сек * 24 мбайт/сек = 384 мбайт.

затем подключился василий, и они стали 32 секунды вдвоем делить канал: 32 сек * 24/2 мбайт/сек = 32*12 = 384 мбайт.

таким образом, за 48 уже рассмотренных секунд петр скачал 384 мбайт + 384 мбайт = 768 мбайт. ему осталось скачать 1792 мбайт - 768 мбайт = 1024 мбайт.

оставшееся время канал был занят тремя людьми, следовательно пропускная способность на каждого стала равна 24/3 = 8 мбайт/сек.

и эти 1024 мбайт / 8 мбайт/сек = 128 сек.

сложим все время: 16 сек + 32 сек + 128 сек = 176 сек или 2 мин 56 сек.

Var k,l,i,j,m: integer;   a: array[1..10,1..10] of integer;   begin  randomize;   for i: =1 to 10 do  for j: =1 to 10 do  a[i,j]: =random(10)-5;   for i: =1 to 10 do  begin  for j: =1 to 10 do write(a[i,j]: 5);   writeln;   end;   write('k=');   readln(k);   write('l=');   readln(l);   m: =a[k,l];   for i: =1 to 10 do  for j: =1 to 10 do  if k=i then a[i,j]: =0 else if l=j then a[i,j]: =0;   a[k,l]: =m;   for i: =1 to 10 do  begin  for j: =1 to 10 do write(a[i,j]: 5);   writeln;   end;   end.