高校数学の質問スレPart408

# 0~9の数字を使ってeをネイピア数として円周率をe進法で小数10桁まで表わせ"

rm(list=ls())
options(digits=22)
n=10
q=numeric()
r=numeric()
e=exp(1)

1*e^1+0*e^0 < pi
pi < 1*e^1+1*e^0
r0=pi %% e
q=r=numeric()
q[1] = r0 %/% e^(-1)
r[1] = r0 %% e^(-1)

for(i in 1:(n-1)){
q[i+1] = r[i] %/% e^(-i-1)
r[i+1] = r[i] %% e^(-i-1)
}
base=e^(-1:-n)
e+sum(q*base)
print(paste0("10.",paste(as.character(q),collapse = '')),q=F)