Используя процедуру нахождения корней квадратного уравнения,написать программу нахождения корней биквадратного уравнения.паскаль.выполнить через procedure.

// pascalabc.net 3.3, сборка 1547 от 07.10.2017 // внимание! если программа не работает, обновите версию! procedure корниквадратногоуравнения(a,b,c: real; var корни: (real,real);       var числокорней: integer); begin   if a=0 then числокорней: =0   else begin       var d: =b*b-4*a*c;       if d> 0 then begin           var p1: =-b/2/a; var p2: =sqrt(d)/2/a;           корни: =(p1-p2,p1+p2);           числокорней: =2           end       else           if d=0 then begin               var p1: =-b/2*a;               корни: =(p1,p1);               числокорней: =1               end           else числокорней: =0       end end; begin   var (a,b,c): =readreal3('коэффициенты биквадратного уравнения a,b,c: ');   var корни: =(0.0,0.0);   var числокорней: =0;   корниквадратногоуравнения(a,b,c,корни,числокорней);   if числокорней=0 then writeln('нет корней')   else begin       var номеркорня: =1;       var r: =корни[0];       if r> 0 then begin           writeln('x1=',-sqrt(r),', x2=',sqrt(r));           номеркорня: =3           end       else           if r=0 then begin               writeln('x1=0');               номеркорня: =2               end;       r: =корни[1];       if r> 0 then           writeln('x',номеркорня,'=',-sqrt(r),', x',номеркорня+1,'=',sqrt(r))       else           if r=0 then writeln('x',номеркорня,'=0');       end end. примеры коэффициенты биквадратного уравнения a,b,c: 1.25 -5 -13.7 x1=-2.42235751307744, x2=2.42235751307744 коэффициенты биквадратного уравнения a,b,c: 4 -5 1 x1=-0.5, x2=0.5 x3=-1, x4=1

Текст поместится на диск, так как 19.53 < 20

Объяснение:

1 символ = 1 байт

20000 символов = 20000 байт

20000 байт = 19.53 Кб