Напишите программу, которая в последовательности натуральных чисел определяет сумму всех чисел, кратных 6 и оканчивающихся на 4. программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность). количество чисел не превышает 100. введённые числа не превышают 300. программа должна вывести одно число: сумму всех чисел, кратных 6 и оканчивающихся на 4.
//PascalABC.NET 3.4.2
begin
ReadSeqIntegerWhile(x -> x <> 0).Where(x -> (x mod 6 = 0) and (x mod 10 = 4)).Sum.Print;
end.