Question

Даны целые числа от 1 до n. Посчитать среднее арифметическое этих чисел, если оно превышает 17, то на экран вывести число на 5 меньше среднего арифметического. В противном случае на экран вывести произведение этих чисел.
​

Answer 1

===== PascalABC.NET =====

begin

 var n := ReadInteger('n =');

 var m := Range(1, n).Average;

 if m > 17 then

   Print(m - 5)

 else

   Range(1, n).Aggregate(BigInteger.One, (p, q) -> p * q).Print

end.