Question

1. Напишите программу, которая в последовательности целых чисел определяет количество чисел, кратных 5 или 9. Программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа по модулю не превышают 30 000. Программа должна вывести одно число: количество чисел, кратных 5 или 9. 2. Напишите программу, которая в последовательности целых чисел определяет количество чётных чисел, кратных 7. Программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа по модулю не превышают 30 000. Программа должна вывести одно число: количество чётных чисел, кратных 7.

Answer 1

Первая задача:

## ReadSeqIntegerWhile(n -> n <> 0).Count(n -> n.Divs(5) or n.Divs(9)).Print

Вторая задача:

## ReadSeqIntegerWhile(n -> n <> 0).Count(n -> n.Divs(7) and n.IsEven).Print

Answer 2

Для обеих задач можно написать похожую программу на Python, используя цикл для ввода чисел и подсчета необходимых значений. Вот код для обеих задач:

1. Подсчет чисел, кратных 5 или 9:

pythonCopy code
count = 0

while True:
    num = int(input("Введите целое число (0 - для завершения ввода): "))
    
    if num == 0:
        break
    
    if num % 5 == 0 or num % 9 == 0:
        count += 1

print("Количество чисел, кратных 5 или 9:", count)

2. Подсчет четных чисел, кратных 7:

pythonCopy code
count = 0

while True:
    num = int(input("Введите целое число (0 - для завершения ввода): "))
    
    if num == 0:
        break
    
    if num % 2 == 0 and num % 7 == 0:
        count += 1

print("Количество четных чисел, кратных 7:", count)

Обе программы будут продолжать запрашивать ввод чисел до тех пор, пока не будет введен 0, после чего они выведут количество соответствующих чисел.