数值型数据反向输出

作者在 2015-02-17 22:28:52 发布以下内容
clear
x=34567
y=0
do while x!=0
    y=x%10+y*10
    x=int(x/10)
    ?y,x
enddo
算法 | 阅读 1594 次
文章评论,共1条
sdta(作者)
2021-03-02 00:26
1
CLEAR 
INPUT "请输入一个正整数:" TO ln 
lns = 0
lns1 = 0
DO WHILE ln > 0
    ln1 = MOD(ln, 10)
    lns = lns + ln1
    lns1 = MOD(ln, 10) + lns1*10
    ln = INT(ln / 10)
    ?lns, lns1
ENDDO
游客请输入验证码
浏览376322次