Question

Сколько натуральных чисел, меньших 1000, которые делятся и на 2, и на 3, и на 4 но не делятся на 5?

Answer 1

program zz;
var i,k:integer;
begin
for i:=1 to 1000 do if (i mod 12=0)and(not(i mod 5=0)) then k:=k+1;
writeln(k)
end.