Пармен
5 год назад
Дам 45 поинтов!!!!Написать программу, которая из последовательности целых чисел находит сумму всех нечётныхчисел кратных 7, кол-во чисел не превышает 500, а по модулю не превыш. 2550-признак окончания ввода
ОТВЕТЫ
Варфоломей
Oct 24, 2020
// PascalABC.NET 3.2, сборка 1389 от 01.03.2017
// Внимание! Если программа не работает, обновите версию!
begin
Writeln(ReadSeqIntegerWhile(g->g<>0).Where(x->(x mod 2<>0) and (x mod 7=0)).Sum());
end.
// Внимание! Если программа не работает, обновите версию!
begin
Writeln(ReadSeqIntegerWhile(g->g<>0).Where(x->(x mod 2<>0) and (x mod 7=0)).Sum());
end.
670
Смежные вопросы:
