Конвентирование паскаля в алгоритмичный язык Program kwur;

Uses CRT;

Var a,b,c,d,x1,x1: real;

Begin

Clrscr;

Write('введите коэффициенты уравнения a,b,c'); readln(a,b,c);

D:=b*b-4*a*c;

If d>=0 then

Begin

X1:=(-b+sqrt(d))/(2*a); x2:=(-b-sqrt(d))/(2*a);

Writeln('x1=',x1' x2=',x2)

END;

Else writeln('действительных корней нет')

End.
Перевести текст выше в алгоритмичный язык

карина0212    1   19.11.2020 15:53    2