Question

помогите решить информатику с подробным объяснением , пожалуйста

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

Answer 1

Ответ:

80

Объяснение:

89-5=84(89- должно получится write(n), 5- уже его значение n := 5;)

84/6=14(Кол-во циклов, чтобы увеличивать n. n := n + 6)

Теперь высчитываем цикл:

Берем 1200-83(Т.к. s:=83) = 1117

1117/14(Кол-во нужны циклов)=79,78(округляем = 80)