Question

Напишите программу, которая в последовательности натуральных чисел определяет сумму всех чисел, кратных 6 и оканчивающихся на 4. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность). Количество чисел не превышает 100. Введённые числа не превышают 300. Программа должна вывести одно число: сумму всех чисел, кратных 6 и оканчивающихся на 4.

Answer 1

//PascalABC.NET 3.4.2

begin

 ReadSeqIntegerWhile(x -> x <> 0).Where(x -> (x mod 6 = 0) and (x mod 10 = 4)).Sum.Print;

end.

Answer 2

Вот пример программы на языке Python, которая решает данную задачу:

pythonCopy code
def sum_multiple_of_six_ending_with_four():
    total_sum = 0

    while True:
        number = int(input("Введите число (0 для выхода): "))

        if number == 0:
            break

        if number % 6 == 0 and number % 10 == 4:
            total_sum += number

    return total_sum


result = sum_multiple_of_six_ending_with_four()
print("Сумма чисел, кратных 6 и оканчивающихся на 4:", result)

Программа запрашивает числа у пользователя до тех пор, пока не будет введен ноль. Затем она проверяет каждое введенное число на кратность 6 и оканчивание на 4. Если число удовлетворяет этим условиям, оно добавляется к общей сумме. В конце программа выводит полученную сумму на экран.