Даны две пары чисел A,B и C,D. Если A*B больше C*D, то вывести среднее арифметическое этих чисел, в противном случае среднее геометрическое
Даны две пары чисел A,B и C,D. Если A*B>C*D, то вывести среднее арифметическое этих чисел, в противном случае среднее геометрическое
Гость
Ответ(ы) на вопрос:
Гость//PascalABC.NET 3.2 сборка 1318
Var
a,b,c,d:real;
begin
readln(a,b,c,d);
if a*b>c*d then writeln((a+b+c+d)/4) else writeln(power(a*b*c*d,1/4));
end.
Пример ввода:
1
2
3
4
Пример вывода:
2.21336383940064
Не нашли ответ?
Похожие вопросы