>> 8 .

,

. :

1. , . .

2. :

    :=1;
    b: =2 ;
    while a+b<8 do
    begin
        : =+1 ;
        b: =b+2;
    end;
    s: =+b

a, b, s ?

3. n ( n 1 n). . , :

    k: =1;
    f :=0;
    while k<n do
        f:=f*k;
        k:=k+1

. .

4. :

    while a<b do
        :==b;

?

5. 25-29 2.4. while.

6. :

    : =1;
    b: =1;
    repeat
        :=+1;
        b:=b*2;
    until b>8;
    s:=+b

, , s ?

7. , ( , ) . repeat.

8. , ( , ) () . repeat.

9. :

    ) repeat;
    ) while.

>>>

 

 

@Mail.ru