Question

Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, кратных 6 и оканчивающихся на 8. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 6 и оканчивающееся на 8. Количество чисел не превышает 1000. Введённые числа по модулю не превышают 30 000. Программа должна вывести одно число: сумму чисел, кратных 6 и оканчивающихся на 8.

Answer 1

//PascalABC.NET версия 3.3.1590 от 03.12.2017
//Если программа не запускается, то обновите версию

begin
    var a:=ReadArrInteger(ReadInteger('n='));
    Writeln(a.Where(x->(x mod 10=8)and (x mod 6=0)).Sum);
end.

Answer 2

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

def sum_of_numbers(n, numbers):
    result_sum = 0

for num in numbers:
        if num % 6 == 0 and num % 10 == 8:
            result_sum += num

return result_sum

# Ввод количества чисел
n = int(input("Введите количество чисел в последовательности: "))

# Ввод самих чисел
numbers = []
for _ in range(n):
    num = int(input("Введите число: "))
    numbers.append(num)

# Проверка условий задачи и вывод результата
result = sum_of_numbers(n, numbers)
print(f"Сумма чисел, кратных 6 и оканчивающихся на 8: {result}")

Программа сначала запрашивает у пользователя количество чисел в последовательности, затем вводит сами числа. Затем она вычисляет сумму чисел, которые кратны 6 и оканчиваются на 8, и выводит результат.