Question

Вычислите дробную часть среднего геометрического трех заданных вещественных чисел.PASCAL ABC

Answer 1

Var
  a,b,c : Real;
Begin
  Readln(a,b,c);
  Writeln(Frac(exp((1/3)*ln(a*b*c))));
end.