Напишите программу среднее геометрическое всех чисел на отрезке (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.
Не нашли ответ?
Похожие вопросы