.

4.

: input(s); ss:=2Xs;

. 5 7.

3. , , 7 ss-1-l.

5. , ,

for 2:= [2]4-2 step 1 until [3] do

if 8=2 then go to ;

6. ,

:= true;

( )

for 1:=3 step 1 until [1] do

nAT[l]:=true;

for 2: = XOOB[2]-f2 step 1 until [3] do

:= false;

[1]:= false; [2]:= true;

7. , . , . , ( ) , , .

for 42: = XOOB[3]-f2 step 1 until [4] do begin

(42, , ,

, , 42 ); comment 4. . 4; :

for := [ss-2]-f2 step 1 until 00[88-1] do begin [5-1]:= false; (, , , , , ); : := [ss];

( , ,

, , ); go to ; :

for := OB[88-l]-f 2 step 1 until

[88] do

begin (, , , , , ); : : = ss;

XOA(CCOK[if q[yPOBEHb]--1 then -f 2 else -f 1], , , ); go to ; : :=ss



end ;

: : = ss-l;

([»! q[yPOBEHb]=-1 then "

+2 else +1], , , ); (, 5, , ); go to if S = 2 then 41 else 42 ; comment 5. . 5;

: : =ss-l;

end ;

if s=2 then go to ; comment 6. . 6; : : =4; ( [if q[yPOBEHb]=-1 then 2+2 else 42+1], , , ); (42, 61, 4, 4); go to 2 ; 42 : : = 4 end 42;

: = 00[41; if [2] then MAT2 :

begin ( , , , , ); : go to 2 end;

: : = 3;

XOA(CCOK[if q[yPOBEHb]=-1 then 2+2 else 2+1], , , );

(2. 5, , );

go to 41 ; 2 : : =3

end 2;

: : =2;

XOA(CCOK[if q[yPOBEHb]=-1 then 1+2 else 1 + 1], , , );

(41, 61, 4, );

go to 1 ; 41 : :=2

end 41;

: = [2]; if [1 then MAT1 :

begin ( , , , , MAT1); : go to 1 end;

output (7/,,,7); go to ; MATl: output (7/VT,MAT HA ,7); -: ; : go to ; 1 : : = 1

end 1;

output (7/,, ,7); go to ;

: output(7/,T,*nEPBbIM ,/); : end

2.

, .



4. sai comment 4

if s = 3 tlien go to ;

for 3: = [4]--2 step 1 until 00[5] do begin [2]:= false; [3]:= true; (, , ,

, , ); for : = [5]--2 step 1 until [6] do begin

(43, , , , , 43 ); ) , , , (, 5, , ) .

5. , comment 5, .

go to if s=2 then 41 else

if s=3 then 42 else 43 ; , comm.ent 5 , .

6. - comment 6

if s = 3 then go to ; : : = 6; ( [if q [] =-1 then

43-f2 else 43+1], 4, ,

);

, 61, , 4); go to ; 43 : : =6 . . end 43; : = 00[6]; if [3 then : begin ( , , 4, , 4 ); : go to end;

: : =5;

XOflA(CnHCOK[if q[yPOBEHb]=-1 then 3-2 else -f 1],

, 4, ); (, 5, . ); go to 42 ; : : = 5 end ;

, , .

) , , , -( ) ) , . *.

* () 1976) - -6 .-, -) ) ,\. , . , = , - 50CJ, )-).





0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 [30] 31 32 33 34 35 36 37 38 39 40 41

0.0033