Задачи для тренировки проверка программы Поляков:

1. Определите, что будет напечатано в результате работы следующего фрагмента программы:

var k, s: integer;

begin

  s:=0;

  k:=1;

  while k < 11 do begin

    s:=s+k;

    k:=k+1;

  end;

  write(s);

end.

2. Определите, что будет напечатано в результате работы следующего фрагмента программы:

var k, s: integer;

begin

  s:=0;

  k:=0;

  while k < 30 do begin

    k:=k+3;

    s:=s+k;

  end;

  write(s);

end.

3. Определите, что будет напечатано в результате работы следующего фрагмента программы:

var k, s: integer;

begin

  s:=3;

  k:=1;

  while k < 25 do begin

    s:=s+k;

    k:=k+2;

  end;

  write(s);

end.

4. Определите, что будет напечатано в результате работы следующего фрагмента программы:

var k, s: integer;

begin

  s:=2;

  k:=2;

  while s < 50 do begin

    s:=s+k;

    k:=k+2;

  end;

  write(k);

end.

5. Определите, что будет напечатано в результате работы следующего фрагмента программы:

var k, s: integer;

begin

  s:=0;

  k:=0;

  while s < 100 do begin

    s:=s+k;

    k:=k+4;

  end;

  write(k);

end.

6. Определите, что будет напечатано в результате работы следующего фрагмента программы:

var k, s: integer;

begin

  s:=0;

  k:=1;

  while s < 66 do begin

    k:=k+3;

    s:=s+k;

  end;

  write(k);

end.

7. Определите, что будет напечатано в результате работы следующего фрагмента программы:

var k, s: integer;

begin

  s:=5;

  k:=0;

  while k < 15 do begin

    k:=k+2;

    s:=s+k;

  end;

  write(s);

end.

8. Определите, что будет напечатано в результате работы следующего фрагмента программы:

var k, s: integer;

begin

  s:=0;

  k:=0;

  while k < 12 do begin

    s:=s+2*k;

    k:=k+3;

  end;

  write(s);

end.

9. Определите, что будет напечатано в результате работы следующего фрагмента программы:

var k, s: integer;

begin

  s:=0;

  k:=0;

  while s < 80 do begin

    s:=s+2*k;

    k:=k+4;

  end;

  write(s);

end.

10. Определите, что будет напечатано в результате работы следующего фрагмента программы:

var k, s: integer;

begin

  s:=1;

  k:=0;

  while k < 13 do begin

    s:=s+2*k;

    k:=k+4;

  end;

  write(s+k);

end.

11. Определите, что будет напечатано в результате работы следующего фрагмента программы:

var n, s: integer;

begin

  n := 3;

  s := 0;

  while n <= 7 do begin

    s := s + n;

    n := n + 1

  end;  

  write(s)

end.

12. Определите, что будет напечатано в результате работы следующего фрагмента программы:

var n, s: integer;

begin

  n := 4;

  s := 0;

  while n <= 8 do begin

    s := s + n;

    n := n + 1

  end;  

  write(s)

end.

13. Определите, что будет напечатано в результате работы следующего фрагмента программы:

var n, s: integer;

begin

n := 4;

s := 0;

while n <= 13 do begin

  s := s + 15;

  n := n + 1

end;

write(s)

end.

14. Определите, что будет напечатано в результате работы следующего фрагмента программы:

var n, s: integer;

begin

n := 1;

s := 0;

while n <= 20 do begin

  s := s + 33;

  n := n + 1

end;

write(s)

end.

15. Определите, что будет напечатано в результате работы следующего фрагмента программы:

var n, s: integer;

begin

  n := 1;

  s := 0;

  while n <= 101 do begin

    s := s + 7;

    n := n + 1

  end;

  write(s)

end.

16. Определите, что будет напечатано в результате работы следующего фрагмента программы:

var n, s: integer;

begin

  n := 0;

  s := 512;

  while s >= 0 do begin

    s := s - 20;

    n := n + 1

  end;

  write(n)

end.

17. Определите, что будет напечатано в результате работы следующего фрагмента программы:

var n, s: integer;

begin

  n := 24;

  s := 0;

  while n <= 28 do begin

    s := s + 20;

    n := n + 2

  end;

  write(s)

end.

18. Определите, что будет напечатано в результате работы следующего фрагмента программы:

var n, s: integer;

begin

  n := 12;

  s := 5;

  while n <= 25 do begin

    s := s + 12;

    n := n + 2

  end;

  write(s)

end.

19. Определите, что будет напечатано в результате работы следующего фрагмента программы:

var n, s: integer;

begin

  n := 2;

  s := 35;

  while n <= 25 do begin

    s := s + 20;

    n := n + 5

  end;

  write(s)

end.

20. Определите, что будет напечатано в результате работы следующего фрагмента программы:

var n, s: integer;

begin

  n := 4;

  s := 15;

  while s <= 250 do begin

    s := s + 12;

    n := n + 2

  end;

  write(n)

end.

Ответы