Сколько натуральных чисел, меньших 1000, которые делятся и на 2, и на 3, и на 4 но не делятся на 5?
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.