.


:




:

































 

 

 

 


. .




 

: xor ( , )

<> -

:

not

and

or, xor

<, <=, >, >=, =, <>

:

program qq;

var x: integer;

begin

writeln ( );

read (x);

if (x>=25) and (x<=40) then

writeln ();

else writeln ( );

end.

 

. . .

 

- .

 

, . , .

, , . , ( ""), , ( "").

, , . .

:

for := 1 to 2 do

for := 1 downto 2 do

for , do, 1 2.

, . to, 1 . downto, 1 . .

, , do, , , ( begin... end). .

1. 2- 10-.

for x:=2 to 10 do WriteLn(x*x);

2. .

for ch:='A' to 'Z' do Writeln(ch);

3. downto.

for i:=10 downto 1 do WriteLn(i);

4. .

for x:=1 to 10 do begin

y:=2*x+3;

WriteLn('f(',x,')=',y);

end;

 

. -.

:

while do

do , (True). . , , . (False), , while.

, (False), .

, do. , .

.

eps:=0.001;

while x > eps do x:=x/2;

 

. -.





:


: 2017-03-18; !; : 1932 |


:

:

, , .
==> ...

1549 - | 1451 -


© 2015-2024 lektsii.org - -

: 0.012 .