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.

Answer 2

Для решения данной задачи, нужно сначала вычислить среднее арифметическое чисел от 1 до n, а затем проверить условие.

Среднее арифметическое чисел от 1 до n можно найти следующим образом:

1. Вычисляем сумму всех чисел от 1 до n. Формула для вычисления суммы арифметической прогрессии: S = (n * (n + 1)) / 2.
2. Вычисляем количество чисел от 1 до n, которое равно n.
3. Делим сумму на количество чисел, чтобы получить среднее арифметическое: среднее_арифметическое = S / n.

После вычисления среднего арифметического, мы можем проверить условие:

1. Если среднее_арифметическое > 17, то вывести (среднее_арифметическое - 5).
2. В противном случае, вывести произведение всех чисел от 1 до n.

Вот пример кода на языке Python, который решает данную задачу:

pythonCopy code
n = int(input("Введите число n: "))  # Вводим значение n с клавиатуры

# Вычисляем среднее арифметическое
S = (n * (n + 1)) // 2
среднее_арифметическое = S / n

# Проверяем условие
if среднее_арифметическое > 17:
    результат = среднее_арифметическое - 5
    print("Результат:", результат)
else:
    произведение = 1
    for i in range(1, n + 1):
        произведение *= i
    print("Результат:", произведение)

После выполнения этого кода, программа запросит ввод значения n и выведет результат в соответствии с условием задачи.