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

55: 5=11

365: 11≈33(34) берём "34", чтобы перехлестнуть 365.

так как 11-ый член является замыкающим (перехлёстывающим 365), тогда смотрим по ближайшим:

34*10=340 (340+34=374) - подходит, но это не максимум!

365 mod 10= 36, а это значит, что последующий член будет больше 365, а именно 395.

в сказано, что d должно быть максимальным, а "34" - это допустимое, но не максимально число, удовлетворяющее условию, даже минимальное (по результату).

проверка:

34*11=374, значит, когда на экране выведется s: =340, n: =50, то, зайдя по следующему циклу, получится, что s: = 374,  n: =55. на следующий цикл программа не пойдёт.

ответ: d=34. 

Так что тебе сделать?doc или .DOC — расширение имени файла, используемое для файлов, представляющих текст, с разметкой или без. Расширение «.doc» часто использовалось для обозначения текстовых файлов, содержащих текст без форматирования, позже стало использоваться для двоичных форматов с разметкой