Question

здравствуйте, помогите решить задачу(pascal)!
Напишите программу, которая в последовательности натуральных чисел определяет сумму всех чисел, кратных 3 и оканчивающихся на 4. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 5.

Answer 1

PascalABC.Net

begin

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

end.