Решить квадратное уравнение (a ≠ 0) ax2 + bx + c = 0. Если ...

Ira

Pascal

program korni;

uses crt;

var a, b, c, x1, x2,d: real;

begin

write('vvedite koeffecienti uravnenia');

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);

write('x1 = ',x1,'x2 = ',x2);

end;

if d