Решение задачи и описание этапов решения. Задано натуральное число n. Найти количество натуральных чисел, не превышающих n и не делящихся ни на одно из чисел 2, 3, 5.

Var i, n, kol:uint64; / / Заказываем 3 переменные uint64

begin

read (n) ; / / Читаем n

for i:=1 to n do begin / / Запускаем цикл перебора всех чисел

if ((i mod 2) = 0) and ((i mod 3) = 0) and ((i mod 5) = 0) then inc (kol) ; / / Проверяем Удовлетворяет ли число

end;

writeln (kol) ; / / Пишем это количество

end.