Сколько различных значений числа 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.
Answers & Comments
srzontmp
Можно ввести 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
Answers & Comments
Из программы видно, что 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