Сколько различных значений числа d можно ввести, чтобы после выполнения программы было напечатано 69?

var n, s, d: integer;
begin
readln(d);
n := 14;
s := 29;
while s <= 2000 do begin
s := s + d;
n := n + 5
end;
write(n)
end.

Вопрос школьника по предмету Информатика

Сколько различных значений числа d можно ввести, чтобы после выполнения программы было напечатано 69?

var n, s, d: integer;
begin
readln(d);
n := 14;
s := 29;
while s <= 2000 do begin
s := s + d;
n := n + 5
end;
write(n)
end.

Ответ учителя по предмету Информатика

Можно ввести 18 значений от 180 до 197.

Из программы видно, что 14+k*5 = 69  =>  k = 11

29 + k*d >= 2000,  отсюда получаем минимальное значение d

d = 1971/11 = 179,18  ,  но так как d — целое, то  d min = 180.

Максимальное значение d из условия:  d max = (1999-29)/10 = 197