Question

напишите программу которая в последовательности натуральных чисел определяет сумму всех чисел крат 3 и окончающихся на 4 программа получает на вход натуральные числа.количество введеных чисел неизвестно,последованость чисел заканчивается числом 0 (0-признак окончания ввода не находит в последовательности) количество чисел не привышает 1000.введеные числа не привышают 10000.програма должна ввести 0

Answer 1

Ответ:

begin

 //PAScalABC.NET 3.8.2

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

end.