Предмет: Информатика,
автор: ivansilukov09
напишите программу которая в последовательности натуральных чисел определяет сумму всех чисел крат 3 и окончающихся на 4 программа получает на вход натуральные числа.количество введеных чисел неизвестно,последованость чисел заканчивается числом 0 (0-признак окончания ввода не находит в последовательности) количество чисел не привышает 1000.введеные числа не привышают 10000.програма должна ввести 0
Ответы
Автор ответа:
0
Ответ:
begin
//PAScalABC.NET 3.8.2
ReadSeqIntegerWhile(x -> x <> 0).Where(x -> (x mod 3 = 0) and (x mod 10 = 4)).Sum.Print;
end.
Похожие вопросы
Предмет: Русский язык,
автор: tanyakoshkina
Предмет: Русский язык,
автор: Rskv
Предмет: Английский язык,
автор: julia234547564798
Предмет: Математика,
автор: Ленок123455555555555
Предмет: Математика,
автор: khanimilkovichh