Question

Сколько есть натуральных чисел от 1 до 105, для которых верно утверждение:

(Последняя цифра числа четна И число кратно 3) ИЛИ (Число меньше 10)?

Answer 1

program ryazantsev;
var i,k:integer;
begin
k:=0;
for i:=1 to 105 do if (((i mod 10) mod 2 = 0) and (i mod 3 = 0)) or (i<10) then k:=k+1;
writeln(k)
end.

Таких чисел 25, запустите программу и убедитесь сами.