1 2003

= =




1)                   :

                     if
then , , ,
..
true
else , , ,
..
false ;

                     if
then begin
, ,
end
else begin
, ,
end;

if (a=b) and (b=c) and (a=c)
then writeln ('
')
else writeln ('
');

end.

3. . (-)

program yravnenie;

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

begin

writeln(' '); readln(a,b,c);

if a=0 then writeln(' ')

else begin

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

if d<0 then writeln(' ')

else begin

if d>0 then

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

else begin x1:=-b/(2*a); x2:=x1; end;

writeln('x1=',x1:1:4,' x2=',x2:1:4);

end;

end;

end.

4. .
(-)

program voda;

var a:real; s:string;

begin

writeln(' '); readln(a);

if a<=0 then s:='';

if a>=100 then s:='';

if (a>0) and (a<100) then s:='';

writeln(' - ',s);

end.

 



 

: WWS corporation & ROKI company.