Ответ:
надо разложить его на множители и отыскать чётные
А почему написано в задании, что ученики 11 класса?
Program new
var
begin
for i =10 to 1000 do
begin
if x mod i = 7 then
written('yeah')
end;
i:=i*10
end;
end.
Пример в Excel. лист защищен без пароля, чтобы не испортить формулы. Программа работает от 0 до 255 числа. Для перевода достаточно разделить, отбросив дробную часть и затем выписать результат в обратном порядке.
18:3=6 рожков 6-5=1 рожок остался на столе 18-3=15 стаканчиков осталось на столе