Проанализируйте решения биквадратного уравнения, составьте алгоритм и напишите программу на паскале.

Var a, b, c, d, x, y: real; begin  readln(a, b, c);   {ax^4 + bx^2 + c = 0}  if a = 0 then  writeln('non-bisquare')  else  begin  d : = b * b - 4 * a * c;   if d < 0 then  writeln('no solutions')  else  begin if d = 0 then    begin x : = -b / 2 / a;     if x < 0 then      writeln('no solutions')    else writeln('2 solutions: ', sqrt(x), ' ', -sqrt(x));     end    else    begin x : = (-b + sqrt(d)) / 2 / a;     y : = (-b - sqrt(d)) / 2 / a;     if x < 0 then writeln('no solutions');     if x = 0 then      writeln('1 solution: 0');     if (x > 0) and (y < 0) then      writeln('2 solutions: ', sqrt(x): 0: 3, ' ', -sqrt(x): 0: 3);     if (x > 0) and (y = 0) then      writeln('3 solutions: ', sqrt(x): 0: 3, ' ', -sqrt(x): 0: 3, ' 0');     if y > 0 then      writeln('4 solutions: ', sqrt(x): 0: 3, ' ', -sqrt(x): 0: 3, ' ', sqrt(y): 0: 3, ' ', -sqrt(y): 0: 3);     end;   end;   end; end.

100 кбайт = 100*1024 байт = 100*1024*8 бит время передачи = 100*1024*8/3600 = 1024*8/36 объем передачи со скоростью 1440 бит/сек = (1024*8/36)*1440 разница объемов = 100*1024*8 - (1024*8/36)*1440 = 819200 - 327680 = 491520 бит = 61440 байт = 61440/1024 кбайт = 60 кбайт или можно решить короче - через отношения скоростей: 3600/1440 = 2,5 объем1/объем2 = 2,5 объем2 = 100/2,5 = 40 кбайт разница = 100-40 = 60кбайт