1 2003

= =


().
.
1.1

: ( for, while, repeat), , .

:

:

1.    1 100. ( , , 1 1).

2.    A=B3-4B : 20, 19.5, 19, 18.5 1.5, 1.

3.    a b c. ( , ).

.

3 : a, b, c.

program funkcij;

var a,b,c,x,y: real;

begin

writeln(' ');read(a);

writeln(' ');read(b);

writeln(' ');read(c);

if ((c>0) and (a<b)) or ((c<0) and (a>b))

then begin

x:=a;

while ((x<=b) and (c>0)) or ((x>=b) and (c<0)) do

begin

if x-5>=0 then begin y:=sqrt(x-5);

writeln('x=',x:1:4,' y=',y:1:4);

end

else writeln('x=',x:1:4,' ');

x:=x+c;

end;

end

else writeln(' ');

end.

 

. .

program umnojenie;

var a,b,c: integer;

begin

writeln(' ');

for a:=1 to 9 do begin

for b:=1 to 9 do begin c:=a*b; write(b,'*',a,'=',c,' '); end;

writeln;

end;

end.


 

: WWS corporation & ROKI company.