Solve[1-(2*p)/q==0, p]