Question

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

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.

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

Answer 2

Для решения этой задачи с использованием цикла for, нужно пройтись по всем натуральным числам от 1 до n и проверить, делится ли каждое из них на числа 2, 3 и 5. Если число не делится ни на одно из этих чисел, то оно подходит под условие задачи.

Вот Python-программа, решающая данную задачу:

pythonCopy code
def is_divisible_by_2_3_5(num):
    return num % 2 == 0 or num % 3 == 0 or num % 5 == 0

def count_numbers_not_divisible_by_2_3_5(n):
    count = 0
    for num in range(1, n + 1):
        if not is_divisible_by_2_3_5(num):
            count += 1
    return count

if __name__ == "__main__":
    n = int(input("Введите натуральное число n: "))
    result = count_numbers_not_divisible_by_2_3_5(n)
    print("Количество чисел не превышающих n и не делящихся на 2, 3 и 5:", result)

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