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

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

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


Информатика (259 баллов) | 29 просмотров
Дан 1 ответ
0 голосов

//PascalABC.NET 3.4.2

begin

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

end.

(3.7k баллов)