Ответы
Ответ дал:
1
Var A, B, C, D, X1, X2 : Real;
Begin
Write ('Введите коэффициенты уравнения (A, B, C): ');
readln(A,B,C);
D:=B*B-4*A*C;
If D<0 Then Writeln ('Корней нет! ');
If D>0 Then
Begin
X1:=(-B+SQRT(D))/(2*A);
X2:=(-B-SQRT(D))/(2*A);
Writeln ('X1 = ', X1:0:3, ' X2 = ',X2:0:3);
End
End.
Begin
Write ('Введите коэффициенты уравнения (A, B, C): ');
readln(A,B,C);
D:=B*B-4*A*C;
If D<0 Then Writeln ('Корней нет! ');
If D>0 Then
Begin
X1:=(-B+SQRT(D))/(2*A);
X2:=(-B-SQRT(D))/(2*A);
Writeln ('X1 = ', X1:0:3, ' X2 = ',X2:0:3);
End
End.
Вас заинтересует
5 месяцев назад
5 месяцев назад
1 год назад
2 года назад
2 года назад
7 лет назад
7 лет назад