Question

ПОМОГИТЕ, ПОЖАЛУЙСТА!! Очень срочно надо!
Сколько натуральных чисел, меньших 1000, которые делятся и на 2, и на 3, и на 4, но не делятся на 5?

Answer 1

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

33