Даны целые числа от 1 до n. посчитать среднее арифметическое - вопрос №104339271 от Lena2402bux 02.02.2023 00:54

Question

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

Lena2402bux · Answer

===== 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).Printend....