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

Question

Информатика

Бет

4 мая, 03:38

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

+3

Ответы (1)

Знаете ответ на вопрос?

Авад · Answer 1

Var n, I, c:integer;

begin

c:=0;

read (n) ;

for i:=1 to n do

if (i mod 2! = 0) and (i mod 3! = 0) and (i mod 5! = 0) then c:=c+1;

write (c) ;

end.

проверь в компиляторе, я Паскаль плохо помню, не уверен