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

Question

Информатика

Нона

8 июня, 06:41

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

+4

Ответы (1)

Знаешь ответ?

Владлен · Answer 1

Var

a, b:integer;

P:real;

Begin

P:=1;

Write ('a = '); ReadLn (a);

Write ('b = '); ReadLn (b);

For b: = a to b do

P:=P*b;

Write (Power (P, 1 / (b-a+1)));

End.