profile
Опубликовано 5 лет назад по предмету Информатика от Waccaw

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

  1. Ответ
    Ответ дан Gleb1Kosyrev
    //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