Write(n)

End.

Решение:

1) из программы видно, что начальные значения переменных s и n равны нулю

2) шаг изменения переменной n равен 5, а шаг изменения переменной s равен неизвестному значению d

3) для того, чтобы значение n стало равно 55, нужно увеличить его на 5 (с нуля) ровно 11 раз, поэтому цикл выполнится ровно 11 раз

4) следовательно, s увеличится на d тоже 11 раз и станет равно 0 + 11·d = 11·d

5) чтобы цикл остановился на 11-м шаге, нужно выполнить условие 11·d > 365, при этом он не должен остановиться на 10-м шаге, то есть, 10·d £ 365, поэтому получаем два неравенства:

6) в итоге значение d – целое число – ограничено отрезком [34; 36], наибольшее из подходящих чисел равно 36

7) Ответ: 36.

Ещё пример задания:

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

var s, n: integer;

Begin

s := 33;

n := 1;

while s > 0 do begin

s := s – 7;

n := n * 3

end;