FindRoot[{ exp(x) + y + z = 100, x + y^2 + z = 100, x + y^2 + exp(z) = 100}, {{x, 1.}, {y, -2.},{z, 1.}}]