Question

напишите программу которая в последовательности натуральных чисел определяет сумму всех чисел крат 3 и окончающихся на 4 программа получает на вход натуральные числа.количество введеных чисел неизвестно,последованость чисел заканчивается числом 0 (0-признак окончания ввода не находит в последовательности) количество чисел не привышает 1000.введеные числа не привышают 10000.програма должна ввести 0

Answer 1

Ответ:

begin

 //PAScalABC.NET 3.8.2

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

end.

Answer 2

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

Ниже приведен пример программы на языке Python, решающий данную задачу:

# Инициализация суммы чисел
sum_numbers = 0

# Ввод чисел и проверка условия окончания ввода
while True:
    num = int(input("Введите натуральное число (для окончания введите 0): "))
    if num == 0:
        break

# Проверка условий кратности 3 и окончания на 4
    if num % 3 == 0 and num % 10 == 4:
        sum_numbers += num

# Вывод результата
print("Сумма чисел кратных 3 и оканчивающихся на 4:", sum_numbers)

Программа будет запрашивать числа у пользователя до тех пор, пока он не введет число 0. После этого программа выведет сумму чисел, удовлетворяющих условиям кратности 3 и окончания на 4.