solve, without i

a=b+c/(1+r)+d/(1+r)^2+d/(1+r)^3;

solve([%], [r]);

I'd like to know if it's possibile to show only expressions which don't contain i.

thanks