Question

Напишите программу, которая в последовательности целых чисел определяет их сумму и количество четных чисел. Программа получает на вход целые числа, количество введенных чисел неизвестно, последователньость чисел заканчивается числом 0 (0 - признак окончания ввода, не входит в последовательность) Количество чисел не превышает 1000. Введенные числа по модулю не превышают 30 000. Программа должна вывести два числа: сумму последовательности и количество четных чисел, кратных 5. Пример работы программы: Входные данные: 4 60 15 0 Выходные данные: 79 1

Answer 1

PascalABC.NET 3.3.5, сборка 1669 от 21.05.2018
Внимание! Если программа не работает, обновите версию!

begin
  var (s,k):=(0,0);
  ReadSeqIntegerWhile(t->t<>0)
      .ForEach(t->begin s+=t; if t mod 10=0 then k+=1 end);
  Writeln(s,NewLine,k)
end.

Answer 2

Для решения этой задачи, мы можем использовать цикл, который будет запрашивать числа от пользователя до тех пор, пока не будет введено число 0. В процессе ввода чисел, мы будем подсчитывать сумму последовательности и количество четных чисел, кратных 5. Затем выведем полученные результаты.

Вот программа на языке Python:

pythonCopy code
def main():
    sum_sequence = 0
    count_even_divisible_by_5 = 0

    while True:
        num = int(input("Введите целое число (для завершения ввода введите 0): "))
        if num == 0:
            break
        
        sum_sequence += num

        if num % 2 == 0 and num % 5 == 0:
            count_even_divisible_by_5 += 1

    print("Сумма последовательности:", sum_sequence)
    print("Количество четных чисел, кратных 5:", count_even_divisible_by_5)


if __name__ == "__main__":
    main()

Скопируйте этот код в среду разработки Python или запустите его в интерактивной среде, чтобы протестировать его. Программа будет просить вас ввести целые числа до тех пор, пока вы не введете 0. После ввода числа 0, программа выведет сумму последовательности и количество четных чисел, кратных 5.