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

126

272

Посмотреть ответы 2

Ответы на вопрос:

annvs1

Информатика

4,6(14 оценок)

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.