1. вычислить корни квадратного уравнения с заданными - вопрос №81754701 от маргарита209 06.12.2020 01:33

Question

Информатика: 1. вычислить корни квадратного уравнения с заданными коэффициентами а,b,с на турбо паскале

маргарита209 · Answer

Program sqr;
Var a,d,b,c,x1,x2:Real;
Begin
WriteLn('Введите A,B и C');
ReadLn(a,b,c);
d:=Sqr(b) - 4*a*c;
x1:=(-b - Sqrt(d))/(2*a);
x2:=(-b + Sqrt(d))/(2*a);
If x1 <= x2 then
WriteLn('X1 = ',x1,' X2 = ',x2)
else
WriteLn('X1 = ',x2,' X2 = ',x1); ReadLn;
End.