Напишите программу среднее геометрическое всех чисел на отрезке (a b)

Напишите программу среднее геометрическое всех чисел на отрезке (a b)
Гость
Ответ(ы) на вопрос:
Гость
//PascalABC.Net 3.2 begin var prod:=1; var a:=readinteger('a ='); var b:=readinteger('b ='); for var i:=a to  b do prod*=i; write ('Ср. геометрическое: ', prod/(b-a)) end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы