Вычислите дробную часть среднего геометрического трех заданных вещественных чисел.PASCAL ABC
Ответы на вопрос
Ответил APALoff
0
Var
a,b,c : Real;
Begin
Readln(a,b,c);
Writeln(Frac(exp((1/3)*ln(a*b*c))));
end.
a,b,c : Real;
Begin
Readln(a,b,c);
Writeln(Frac(exp((1/3)*ln(a*b*c))));
end.
Новые вопросы