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

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

var n, s: integer;

begin

  n := 2;

  s := 35;

  while n <= 25 do begin

    s := s + 20;

    n := n + 5

  end;

  write(s)

end

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

var n, s: integer;

begin

n:= 0;

s:= 0;

while s <= 365 do begin

  s:= s + 33;

  n:= n + 5

end;

write(n)

end.

Запишите число, которое будет напечатано в результате выполнения следующей программы:

var n, s: integer;

begin

  n := 1;

  s := 0;

  while n <= 650 do begin

    s := s + 20;

    n := n * 5

  end;

  write(s)

end.

Запишите число, которое будет напечатано в результате выполнения следующей программы:

var s, n: integer;

begin

  s := 0;

  n := 0;

  while s < 111 do begin

    s := s + 8;

    n := n + 2

  end;

  writeln(n)

end

Запишите число, которое будет выведено в результате работы программы:

var s, n: integer;

begin

  s := 25;

  n := 5;

  while 500 < s*s do begin

    s := s - 1;

    n := n + 2

  end;

  writeln(n)

end

Запишите число, которое будет выведено в результате работы программы:

var s, n: integer;

begin

  s := 25;

  n := 5;

  while 500 < s*s do begin

    s := s - 1;

    n := n + 2

  end;

  writeln(n)

end.

Запишите число, которое будет выведено в результате работы программы:

var s, n: integer;

begin

  s := 6;

  n := 60;

  while n > s do begin

    s := s + 1;

    n := n - 2

  end;

  writeln(n)

end.