Program kv; varx1,x2,x,d,a,b,c:real; begin writeln('Квадратное уравнение должно выглядеть так: ax^2+bx+c'); writeln('Write a'); readln(a); writeln('Write b'); readln(b); writeln('Write c'); readln(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('X1= ',x1:8:3,' X2= ',x2:8:3); end; if (d<0) then begin writeln('Нет корней'); end else x:=x2; x2:=-b/2*a; writeln('X= ',x2); end.
varx1,x2,x,d,a,b,c:real;
begin
writeln('Квадратное уравнение должно выглядеть так: ax^2+bx+c');
writeln('Write a');
readln(a);
writeln('Write b');
readln(b);
writeln('Write c');
readln(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('X1= ',x1:8:3,' X2= ',x2:8:3);
end;
if (d<0) then
begin
writeln('Нет корней');
end
else
x:=x2;
x2:=-b/2*a;
writeln('X= ',x2);
end.