Написать программу для нахождения среднего геометрического значения всех целых положительных чисел меньших 10 - Pascal ABC
Формулировка задачи:
Написать программу для нахождения среднего геометрического значения всех целых положительных чисел меньших 10.
P.s прошу помогите
Решение задачи: «Написать программу для нахождения среднего геометрического значения всех целых положительных чисел меньших 10»
textual
Листинг программы
s:=1; for i:=1 to 9 do s:=s*i; s:=exp(ln(s)/9);
Объяснение кода листинга программы
- Создается переменная s, которая инициализируется значением 1.
- Затем происходит цикл for, который выполняется от 1 до 9 (inclusive).
- Внутри цикла значение переменной i умножается на значение переменной s, и результат сохраняется в переменной s.
- После окончания цикла, значение переменной s преобразуется в экспоненту от натурального логарифма от s, деленного на 9, и результат сохраняется в переменной s.