Question

При каком наименьшем введенном числе d после выполнения программы будет напечатано 63?
var n, s, d: integer;
begin
readln(d);
n := 3;
s := 57;
while s <= 1200 do begin
s := s + d;
n := n + 4
end;
write(n)
end.

Объясните,пожалуйста

Answer 1

Для того чтобы число n было 63, нужно пройти (63 - 3) / 4 = 15 итераций цикла.
Далее находим число d, при котором это будет выполнено:
(1200 - 57) / 15 + 1 = 77