B8 - Анализ программ с циклами

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

var k, s: integer;
begin
  s:=2;
  k:=2;
  while s < 50 do begin
    s:=s+k;
    k:=k+2;
  end;
  write(k);
end. 

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

var k, s: integer;
begin
  s:=0;
  k:=1;
  while s < 66 do begin
    k:=k+3;
    s:=s+k;
  end;
  write(k);
end.

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

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.

4. Определите, что будет напечатано в результате работы следующего фрагмента программы:
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.

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

var n, s: integer;
begin
  n := 4;
  s := 0;
  while n <= 8 do begin
    s := s + n;
    n := n + 1
  end;  
  write(s)
end.

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

var n, s: integer;
begin
n := 4;
s := 0;
while n <= 13 do begin
  s := s + 15;
  n := n + 1
end;
write(s)
end.

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

var n, s: integer;
begin
  n := 1;
  s := 0;
  while n <= 101 do begin
    s := s + 7;
    n := n + 1
  end;
  write(s)
end.

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

var n, s: integer;
begin
  n := 0;
  s := 512;
  while s >= 0 do begin
    s := s - 20;
    n := n + 1
  end;
  write(n)
end.

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

var n, s: integer;
begin
n := 0;
s := 0;
while s <= 256 do begin
  s := s + 25;
  n := n + 1
end;
write(n)
end.

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

var n, s: integer;
begin
n:= 0;
s:= 0;
while s <= 365 do begin
  s:= s + 33;
  n:= n + 5
end;
write(n)
end.