Как решить квадратное уравнение на языке паскаль?
Поделиться
Введите адрес электронной почты, который вы использовали при регистрации. Вы получите ссылку на сброс пароля
Напишите причину обращения
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