begin writeln('Введите коэффициенты a,b,c:'); readln(a,b,c); d:=(sqr(b))-(4*a*c); if d>0 then begin x1:=(-b+(sqrt(d)))/(2*a); x2:=(-b-(sqrt(d)))/(2*a); writeln('---------'); writeln('x1= ',x1); writeln('x2= ',x2); end; if d=0 then begin x1:=(-b/2*a); writeln('x= ',x1); end; if d<0 then writeln('Корней нет!'); end.
Answers & Comments
Verified answer
var a,b,c,d,x1,x2: real;begin
writeln('Введите коэффициенты a,b,c:');
readln(a,b,c);
d:=(sqr(b))-(4*a*c);
if d>0 then begin
x1:=(-b+(sqrt(d)))/(2*a);
x2:=(-b-(sqrt(d)))/(2*a);
writeln('---------');
writeln('x1= ',x1);
writeln('x2= ',x2);
end;
if d=0 then begin
x1:=(-b/2*a);
writeln('x= ',x1);
end;
if d<0 then writeln('Корней нет!');
end.