напишите программу которая в последовательности натуральных чисел определяет сумму всех чисел крат 3 и окончающихся на 4 программа получает на вход натуральные числа.количество введеных чисел неизвестно,последованость чисел заканчивается числом 0 (0-признак окончания ввода не находит в последовательности) количество чисел не привышает 1000.введеные числа не привышают 10000.програма должна ввести 0
Ответы на вопрос
Ответил Wybr
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.
Новые вопросы
Английский язык,
1 год назад
Другие предметы,
6 лет назад
География,
6 лет назад
Литература,
8 лет назад