NSolve[{Log[y] + 2 x - 4 == 0 && x/y - 5 == 0}, {x, y}]