Сколько различных значений числа d можно ввести, чтобы после выполнения программы было напечатано 171? var n, s, d: integer; begin readln(d); n : = 27; s : = 12; while s < = 2019 do begin s : = s + d; n : = n + 16 end; write(n) end.
Чтоб получить на выходе 171 составим уравнение: 27 + 16x = 171 x = 9 - это значит цикл должен выполниться 9 раз.
Чтоб цикл выполнился 9 раз составим неравенство исходя из условия s<=2019: (2019-12)9 = 223 - это знаит при d=223 цикл выполнится 10 раз (так как при 9 разе s=2019 и цикл выполнится еще раз). Прибавим 1 к 223 и получим начальное значение при котором результат будет 171.
Далее узнаем конечное значение: (2012-12)/x = 8 x= 250 - это последнее значение, при котором результат будет 171. При d = 251 - не будет 171. ответ: [224;250] . Всего 27 значений
27 + 16x = 171
x = 9 - это значит цикл должен выполниться 9 раз.
Чтоб цикл выполнился 9 раз составим неравенство исходя из условия s<=2019:
(2019-12)9 = 223 - это знаит при d=223 цикл выполнится 10 раз (так как при 9 разе s=2019 и цикл выполнится еще раз). Прибавим 1 к 223 и получим начальное значение при котором результат будет 171.
Далее узнаем конечное значение:
(2012-12)/x = 8
x= 250 - это последнее значение, при котором результат будет 171. При d = 251 - не будет 171.
ответ: [224;250] . Всего 27 значений