Напишите программу которая в последовательности натуральных чисел кратных 6 и...

0 голосов
27 просмотров

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


Информатика (16 баллов) | 27 просмотров
0

PascalABC.NET?

Дан 1 ответ
0 голосов

//PascalABC.NET

begin

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

end.

(276 баллов)