Поделитесь своими знаниями, ответьте на вопрос:
решить информатику с подробным объяснением При каком наибольшем введенном числе 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.
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)