DmtrBdkn1408
Паскаль var a,b,c,d:integer; x,y:real; begin writeln(a); writeln(b); writeln(c); readln(a); readln(b); readln(c); d:=b*b-4*a*c; if d>0 then begin x:=(-b+sqrt(d))/(2*a); y:=(-b-sqrt(d))/(2*a); writeln(x,y); end; if d=0 then begin x:=-b/2*a; writeln(x); end; if d<0 then begin writeln('Уравнение не имеет корней') end; end.
Answers & Comments
var a,b,c,d:integer; x,y:real;
begin
writeln(a);
writeln(b);
writeln(c);
readln(a);
readln(b);
readln(c);
d:=b*b-4*a*c;
if d>0 then begin
x:=(-b+sqrt(d))/(2*a);
y:=(-b-sqrt(d))/(2*a);
writeln(x,y);
end;
if d=0 then begin
x:=-b/2*a;
writeln(x);
end;
if d<0 then begin
writeln('Уравнение не имеет корней')
end;
end.