Question

Программа на вход получает натуральные числа. Количество их неизвестно, ввод чисел заканчивается вводом 0. Количество чисел не превышает 1000. Сами числа не превышают 30000. Программа должна вывести одно число: сумму все трехзначных чисел кратных 4 или вывести "NO", если таких чисел нет. Помогите пж 4 дня над этим сижу

Answer 1

===== PascalABC.NET =====

Используется последовательность, а она в памяти не хранится, поэтому может быть обработано произвольное количество чисел с расходом памяти на хранение одного единтственного - текущего.

begin

 var s := ReadSeqIntegerWhile(p -> p <> 0)

     .Where(p -> p.InRange(100, 999) and (p mod 4 = 0))

     .Sum;

 if s > 0 then

   Print(s)

 else

   Print('NO')

end.

Answer 2

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

pythonCopy code
def is_three_digit_multiple_of_four(number):
    return 100 <= number <= 999 and number % 4 == 0

def main():
    sum_of_multiples = 0

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

        if num == 0:
            break

        if is_three_digit_multiple_of_four(num):
            sum_of_multiples += num

    if sum_of_multiples != 0:
        print("Сумма трехзначных чисел, кратных 4:", sum_of_multiples)
    else:
        print("NO")

if __name__ == "__main__":
    main()

Как только вы запустите программу, она попросит вас ввести числа. Вы можете вводить числа, пока не введете 0, что указывает на завершение ввода. Затем программа выдаст сумму трехзначных чисел, кратных 4, или выведет "NO", если таких чисел не было введено.