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