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

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

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

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.

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

var n, s: integer;

Begin

n := 0;

s := 0;

while s <= 35 do begin

n := n + 1;

s := s + 4

end;

Write(n)

End.

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

var n, s: integer;

Begin

n := 0;

s := 0;

while s <= 256 do begin

s := s + 25;

n := n + 1

end;

Write(n)

End.

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

var n, s: integer;

Begin

n:= 0;

s:= 0;

while s <= 365 do begin

s:= s + 33;

n:= n + 5

end;

Write(n)

End.

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

var n, s: integer;

Begin

n:= 0;

s:= 0;

while s <= 365 do begin

s:= s + 36;

n:= n + 10

end;

Write(n)

End.

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

var n, s: integer;

Begin

n := 1;

s := 0;

while s <= 365 do begin

s := s + 36;

n := n * 2

end;

Write(n)

End.

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

program B05;

var n, s: integer;

Begin

n := 0;

s := 1;

while s <= 1000 do begin

s := s * 3;

n := n + 3;

end;

Write(n)

End.

27) При каком наименьшем введенном числе d после выполнения программы будет напечатано 67?

var n, s, d: integer;

Begin

readln(d);

n := 2;

s := 0;

while s <= 365 do begin

s := s + d;

n := n + 5

end;