Помогите пожалуйста с задачей. Написать программу на Pascal. Даны три действительных положительных числа. Найдите среднее геометрическое этих чисел.
Помогите пожалуйста с задачей.
Написать программу на Pascal.
Даны три действительных положительных числа. Найдите среднее геометрическое этих чисел.
Гость
Ответ(ы) на вопрос:
ГостьVar a,b,c : Real;
Begin
Readln(a,b,c);
Writeln(Power(a*b*c,1/3));
end.
Не нашли ответ?
Похожие вопросы