Запишите число, которое будет напечатано...

Задание:

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

Паскаль:

Var s, n: integer;

begin
 s:= 301;
 n:= 0;
while s > 0 do begin
 s:= s - 10;
 n:= n + 2;
end;
writeln(n);
end.
 

Решение:

* Обратим внимание на то, что в каждом цикле переменная S уменьшается на 10. Узнаем сколько всего циклов:
  301 : 10 = 30.1, округляем в большую сторону => всего 31 цикл.

* В первом цикле переменная n будет равна 2, так как изначально она равна нулю. значит в 31-ом цикле значение n будет равен: 31 * 2 = 62.

* Число 62 выйдет на экран.

Ответ: 62