: 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;
. -.