При каком наибольшем введенном числе d после выполнения программы будет напечатано 75? 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.

Нужно узнать через сколько циклов из 0 будет 75 при нарастании на 5 : 75/5 = 15

Тогда составим уравнение:

365 = (s + d ) * 15

S= 0

d= 365 / 15 = 24,3(3)

Исходя из того, что при 24 пройдет ещё один цикл (24*15=360), следовательно, наибольшее число это 25