Question

ПОМОГИТЕ ПОЖАЛУЙСТА! Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, кратных 5. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 5. Количество чисел не превышает 100. Введённые числа не превышают 300. Программа должна вывести одно число – сумму чисел, кратных 5.

Answer 1

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

begin
  ReadSeqInteger(ReadInteger('n=')).Where(t->t mod 5=0).Sum.Println
end.

Пример
n= 8
24 55 -63 0 -40 150 67 44
165

Answer 2

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

pythonCopy code
def sum_of_multiples_of_five(sequence):
    sum_multiples_of_five = 0
    for num in sequence:
        if num % 5 == 0:
            sum_multiples_of_five += num
    return sum_multiples_of_five

def main():
    try:
        n = int(input("Введите количество чисел в последовательности: "))
        if n <= 0 or n > 100:
            raise ValueError("Количество чисел должно быть в диапазоне от 1 до 100.")

        sequence = []
        for i in range(n):
            num = int(input(f"Введите число {i + 1}: "))
            if num <= 0 or num > 300:
                raise ValueError("Число должно быть в диапазоне от 1 до 300.")
            sequence.append(num)

        result = sum_of_multiples_of_five(sequence)
        print(f"Сумма чисел, кратных 5: {result}")

    except ValueError as e:
        print(f"Ошибка: {e}")

if __name__ == "__main__":
    main()

Когда вы запустите эту программу, она попросит вас ввести количество чисел в последовательности, а затем последовательно ввести сами числа. После этого она вычислит сумму чисел, кратных 5, и выведет результат на экран.