1. вычислить корни квадратного уравнения с заданными - вопрос №81745681 от ket174 23.06.2022 06:24

Question

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

ket174 · 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.