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

Question

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

Answer 1

Var i,k: integer;
begin
  k:=0; i:=24;
  repeat
    if (i mod 5)<>0 then inc(k);
    i:=i+24;
  until i>1000;
  writeln(k);
end.

33