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

Question

Информатика

Матильда

22 января, 09:34

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

+5

Ответы (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.