Решение задачи и описание этапов решения.Задано натуральное число n. Найти количество...

Question

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

Answer 1

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.

Comments

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