Question

При каком наибольшем введённом числе d после выполнения программы будет напечатано 89?
Прошу расписать подробнее,чтобы поняла как делать

Answer 1

Шаг изменения переменной n равен 6
Шаг изменения s равен d

Для того чтобы n стало равно 89, нужно увеличить его на 6 (89-5)/6 =14 раз, повтор цикла 14 раз.
Переменной s также прибавляется d 14 раз, 83+14d
Чтобы 14 шаг был последним и цикл остановился нужно выполнить условия:
83+14d>=1200
83+13d<1200
Получается система уравнений, решаем ее:
14d>=1117
13d<1117

d>=79.78
d<85.92
Наибольшее целое решение 85

Ответ: 85

Программа для проверки:
var
  n, s, d, max: integer;

begin
  max := 0;
  for d := 1 to 1000 do
  begin
    n := 5;
    s := 83;
    while s <= 1200 do
    begin
      s := s + d;
      n := n + 6;
    end;
    if (n = 89) and (max < d) then max := d;
  end;
  Writeln(max);
end.