Написать программу, которая в последовательности целых чисел вычисляет произведение трехзначных четных чисел, оканчивающихся на 2. Признаком окончания ввода чисел является ноль.

медвежонок41 медвежонок41    3   14.03.2020 02:44    3

Ответы

PascalABC.NET

begin

 var sqnc := ReadSeqIntegerWhile(x -> x <> 0);

 sqnc.Where(x -> (x >= 100) and (x < 1000) and (x mod 10 = 2) and (x mod 2 = 0))

   .Aggregate(Biginteger.One, (p, q) -> p * q).Println;

end.

Объяснение:

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика