Даны целые числа от 1 до n. посчитать среднее арифметическое - вопрос №104339271 от fhdjfjfuf 06.03.2020 12:03

Question

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

fhdjfjfuf · 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....