ИТ
Иван Ткаченко
for i:= 1 to 40 do
if ai mod 5 = 0 then inc(k);
Самый простой способ - листик в клеточку и загибать пальцы если число имеет окончание "5" или "0"
Все остальные способы требуют название программы в которой надо производить подсчет