Question

даны вещественные числа x, y, z. Вычислите следующее выражение:max(x+y+z, xyz) ;

Answer 1

function z00006(x, y, z : real) : real;
    var
      m1, m2 : real;
  begin
    {Äàíû âåùåñòâåííûå ÷èñëà x, y, z. Âû÷èñëèòå ñëåäóþùåå
      âûðàæåíèå: max(x+y+z, xyz) }
    m1 := x + y + z;
    m2 := x * y * z;
    if (m1 > m2) then
      begin
        z00006 := m1;
      end
        else
          begin
            z00006 := m2;
          end;
  end;