-



         

- 2


begin ( )

writein; ( )

writein(' a,b,c'); read(,,); ( )

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

if d<0 then ( d<0, )

write(' ') ()

else ()

begin ( )

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

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

write('1=',1,' 2=',2) ( )

end ( )

end. ( )

:

1) ;

2) , ;

3) ;

4) ;

5) ;

6) ;

7) ;

8) .

, , , 5- 8- .

, , ( ).

2, .

2

program circle;

const

pi=3.14159;

var

r,s,1 : real;

begin

writeln ( '); readln(r);

s:=pi*r*r; l:=2*pi*r;

writeln(' =',S:8:4); writeln(' =', l:8:4)

end.

. program, - const, -var, begin. end, . .