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

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

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

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

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

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

var k, s: integer;
begin
  s:=0;
  k:=0;
  while s < 100 do begin
    s:=s+k;
    k:=k+4;
  end;
  write(k);
end.

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

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

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

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

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

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

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

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

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

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

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

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

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

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