version 10.3:
Clear[p1, p2, b] Solve[{Log[p1] == b - 1, Log[p2] == b - 1, p1 + p2 == 1}, {p1, p2, b}, Reals] {{p1 -> 1/2, p2 -> 1/2, b -> 1 - Log[2]}}
