Даны две пары чисел A,B и C,D. Если A*Bamp;gt;C*D, то вывести

Даны две пары чисел A,B и C,D. Если A*Bgt;C*D, то вывести среднее арифметическое этих чисел, в противном случае среднее геометрическое

Задать свой вопрос
1 ответ
//PascalABC.NET 3.2 сборка 1318

Var
  a,b,c,d:real;
begin
readln(a,b,c,d);
if a*bgt;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
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт