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:=0;
k:=0;
while k < 12 do begin
s:=s+2*k;
k:=k+3;
end;
write(s);
end.
Ответ: 
3. Определите, что будет напечатано в результате работы следующего фрагмента программы:
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.
Ответ: 
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 := 3;
s := 0;
while n <= 7 do begin
s := s + n;
n := n + 1
end;
write(s)
end.
Ответ: 
6. Определите, что будет напечатано в результате работы следующего фрагмента программы:
var n, s: integer;
begin
n := 4;
s := 0;
while n <= 8 do begin
s := s + n;
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 := 2;
s := 35;
while n <= 25 do begin
s := s + 20;
n := n + 5
end;
write(s)
end.
Ответ: 
9. Определите, что будет напечатано в результате работы следующего фрагмента программы:
var n, s: integer;
begin
n := 0;
s := 0;
while s <= 35 do begin
n := n + 1;
s := s + 4
end;
write(n)
end.
Ответ: 
10. Определите, что будет напечатано в результате работы следующего фрагмента программы:
var n, s: integer;
begin
n := 0;
s := 0;
while s <= 256 do begin
s := s + 25;
n := n + 1
end;
write(n)
end.
Ответ: