Даны целые числа от 1 до n. посчитать среднее арифметическое - вопрос №104330251 от Абвгдежз1234567890 07.07.2021 02:32

Question

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

Абвгдежз1234567890 · 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....