ubivator2PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018 Внимание! Если программа не работает, обновите версию!
begin var (a,b,c):=ReadReal3; var d:=b*b-4*a*c; if d<0 then Writeln('Корней нет') else if d=0 then begin var x:=-b/2/a; Writeln('Корень уравнения x=',x) end else begin var x1:=(-b-Sqrt(d))/2/a; var x2:=(-b+Sqrt(d))/2/a; Writeln('Корни уравнения: x1=',x1,', x2=',x2) end end.
Answers & Comments
Внимание! Если программа не работает, обновите версию!
begin
var (a,b,c):=ReadReal3;
var d:=b*b-4*a*c;
if d<0 then Writeln('Корней нет')
else
if d=0 then begin
var x:=-b/2/a;
Writeln('Корень уравнения x=',x)
end
else begin
var x1:=(-b-Sqrt(d))/2/a;
var x2:=(-b+Sqrt(d))/2/a;
Writeln('Корни уравнения: x1=',x1,', x2=',x2)
end
end.