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

Question

Информатика

Калерия

27 октября, 09:53

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