НМ
Надежда Мусаева
СРОЧНО... нужна программа для вычисления корней квадратного уравнения (Pascal)
Нужна программа для вычисления корней квадратного уравнения (Pascal) с применением оператора либо IF либо GOTO
Нужна программа для вычисления корней квадратного уравнения (Pascal) с применением оператора либо IF либо GOTO
program kv;
var
a,b,c,D,x1,x2:real;
begin
Read(a,b,c);
D:=sqr(b)-4*a*c;
if D<0
then WriteLn('Действительных корней нет')
else begin
d:=sqrt(d);
x1:=(-b+d)/(2*a);
x2:=(-b-d)/(2*a);
WriteLn('x1=',x1);
WriteLn('x2=',x2);
end;
end.