Question

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

Answer 1

var k:integer;

begin
for var i:=1 to 999 do  
if (i mod 2 =0) and (i mod 3 = 0) and (i mod 4 = 0) and (i mod 5 <> 0)   
then inc(k);
writeln(k);
end.


ОТВЕТ
67