Тестовые задания Оператор повтора Repeat

1. var n, s: integer;

begin

    n := 0; s := 1;

Repeat    

        s := s * 3;

        n := n + 3;

   until s1000;

    write(n);end.

Ответ:

2. var k, s: integer;

begin

    s:=0; k:=1;

 Repeat    

        k:=k+3;

        s:=s+k;

   until s=66;

    write(k); end.

Ответ:

3. 

a := 20;

b := 15;

b := 3 * b - a;

if a b then c := 2 * a + b else c := 2 * a - b;

write(c);

Ответ:

4.

a := 17;

b := 20;

a := 3 * a - b;

if a b then   c := 5 * a – b else c := 5 * a + b; 

write(c);

Ответ:

5. var k, s: integer;

begin

s:=0; k:=0;

Repeat  

        k:=k+3;

        s:=s+k;

until k=30;

write(s); end.

Ответ:

6. var k, s: integer;

begin

s:=1; k:=0;

Repeat  

        s:=s+2*k;

        k:=k+4;

until k=13;

write(s+k); end.

Ответ:

7.  var n, s: integer;

begin

n := 4; s := 0;

Repeat  

        s := s + n;

        n := n + 1;

until n8;

write(s); end.

Ответ:

8. var n, s: integer;

begin

n := 3; s := 0;

Repeat  

        s := s + n;

        n := n + 1

until n7;

write(s); end.

Ответ:

9. var n, s: integer;

begin

n := 4; s := 0;

Repeat  

        s := s + n;

        n := n + 1;

until n8;    

write(s); end.

Ответ:

10. var s, k : integer;

begin

s:=0; k:=1;

Repeat  

        s:=s+k;

        k:=k+1;

until k=11;

write(s); end.

Ответ:

1. var n, s: integer;

begin

    n := 0; s := 1;

Repeat    

        s := s * 3;

        n := n + 3;

   until s1000;

    write(n);end.

Ответ:

2. var k, s: integer;

begin

    s:=0; k:=1;

 Repeat    

        k:=k+3;

        s:=s+k;

   until s=66;

    write(k); end.

Ответ:

3. 

a := 20;

b := 15;

b := 3 * b - a;

if a b then c := 2 * a + b else c := 2 * a - b;

write(c);

Ответ:

4.

a := 17;

b := 20;

a := 3 * a - b;

if a b then   c := 5 * a – b else c := 5 * a + b; 

write(c);

Ответ:

5. var k, s: integer;

begin

s:=0; k:=0;

Repeat  

        k:=k+3;

        s:=s+k;

until k=30;

write(s); end.

Ответ:

6. var k, s: integer;

begin

s:=1; k:=0;

Repeat  

        s:=s+2*k;

        k:=k+4;

until k=13;

write(s+k); end.

Ответ:

7.  var n, s: integer;

begin

n := 4; s := 0;

Repeat  

        s := s + n;

        n := n + 1;

until n8;

write(s); end.

Ответ:

8. var n, s: integer;

begin

n := 3; s := 0;

Repeat  

        s := s + n;

        n := n + 1

until n7;

write(s); end.

Ответ:

9. var n, s: integer;

begin

n := 4; s := 0;

Repeat  

        s := s + n;

        n := n + 1;

until n8;    

write(s); end.

Ответ:

10. var s, k : integer;

begin

s:=0; k:=1;

Repeat  

        s:=s+k;

        k:=k+1;

until k=11;

write(s); end.

Ответ: