Question

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

Answer 1

//PascalABC.NET

begin

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

end.