Question

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

Answer 1

Uses crt;var ch,i,n,count:integer;beginn:=0;count:=0;
write(' Введите число : ');readln(ch);if ((abs(ch)<30000) and (ch div 100 <> 0 ) and (ch mod 7 = 0)) then inc(count);while ((ch<>0) and ( n <1001)) dobeginwrite(' Введите число : ');readln(ch);if ((abs(ch)<30000) and (ch div 100 <> 0 ) and (ch mod 7 = 0)) then inc(count);inc(n);end;writeln(count);readln;end.

Answer 2

Для решения этой задачи можно использовать цикл для ввода последовательности чисел и счетчик для подсчета четных чисел, кратных 7. Когда пользователь введет 0, цикл завершится, и программа выведет количество найденных четных чисел, кратных 7. Вот программа на Python:

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

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

Пример работы программы:

scssCopy code
Введите число (0 для завершения ввода): -32
Введите число (0 для завершения ввода): 14
Введите число (0 для завершения ввода): 17
Введите число (0 для завершения ввода): 0
Количество чётных чисел, кратных 7: 1

Примечание: Входные данные для примера вводятся построчно, и после каждого ввода нажимается клавиша "Enter". Программа завершится, когда пользователь введет 0.