douleexp(doublea，intn){inti;doubleb，s=.；i=n；b=a;while（i>）{if(i%)s=b；i/=;b=b;}returns;}