Question

Решаю, но ответ не сходится , приведите ваше решение пожалуйста.
При каком наибольшем введенном числе d после выполнения программы будет напечатано 55?
Paskal:
var n, s, d: integer;
begin
readln(d);
n := 0;
s := 0;
while s <= 365 do begin
s := s + d;
n := n + 5
end;
write(n)
end.

Answer 1

Программа увеличивает n на 5. Т.к. на выходе нужно получить n = 55, то цикл должен прокрутиться 11 раз.
Т.е. после 10 раз число s <= 365 (программа войдёт в цикл одиннадцатый раз), но после 11 цикла s > 365. При этом s = 10d и 11d соответственно:
10d <= 365
11d > 365

d < 36.5
d > 365 / 11 ~ 33.18

Под заданный вопрос подходит значение d = 36.

Answer 2

Спасибо