.


- 2


1. .

.

2.

.

3.

(d).

d < 0, ,

,

d = 0,

,

,

, ,

.

4. .

, .

Program

Problem3; { }

uses WinCrt;

var

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

begin

write(' ');

readln(a, b, c);

d := b*b - 4*a*c;

if d < 0 then writeln(' ')

else

if d=0

then

writeln(' ',-b/(2*a))

else

begin

x1 := (-b - sqrt(d))/(2*a);

x2 := (-b + sqrt(d))/(2*a);

write(' ');

writeln('x1 = ', x1, ' x2 = ', x2)

end

end.

.

"Problem3;", : "{ };".

. , a, b, c , d , x1 x2 . , , , : real.