编写函数，求一个不超过五位的十进制整数各位数值的和。
qiuhe <- function(m){
n =as.numeric(substring(m,1:nchar(m),1:nchar(m)))
y = ifelse(length(n)<=5,sum(n),"无法计算")
return(y)
}
qiuhe(12345)
qiuhe(1234567890)
=================================
qiuhe <- function(m){
n =as.numeric(substring(m,1:nchar(m),1:nchar(m)))
y = ifelse(length(n)<=5,sum(n),"无法计算")
return(y)
}
qiuhe(12345)
qiuhe(1234567890)
=================================
本文标题：R代码：求不超过五位的十进制整数各位数值的和
本文链接：https://www.haomeiwen.com/subject/broxlttx.html
网友评论