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

Есть и менее затратное по времени

var i,n,kol:uint64; //Заказываем 3 переменные uint64beginread(n); //Читаем nfor 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.