主题：数的拆分
Saitor@love.com
[专家分：30] 发布于 2009-08-07 13:14:00
数的拆分
键盘输入N，把N各个位上的数拆下来。
如：数123
输出 1 2 3
回复列表 （共25个回复）
21 楼
ni2b [专家分：0] 发布于 2011-09-16 23:04:00
CLS
INPUT n
g = n MOD 10
s = n \ 10 MOD 10
b = n \ 100
PRINT b, s, g
22 楼
idealguy [专家分：110] 发布于 2012-01-12 23:58:00
DIM A&
INPUT "A="; A&
s$ = LTRIM$(STR$(A&))
FOR i = 1 TO LEN(s$)
PRINT MID$(s$, i, 1); " ";
NEXT i
END
23 楼
幽灵密码 [专家分：3510] 发布于 2012-01-13 23:32:00
[quote]DIM A&
INPUT "A="; A&
s$ = LTRIM$(STR$(A&))
FOR i = 1 TO LEN(s$)
PRINT MID$(s$, i, 1); " ";
NEXT i
END[/quote]
Cls
Input "A="; a$
a$ = Ltrim$(a$)
For i = 1 To Len(a$)
Print Mid$(a$, i, 1);" ";
Next i
End
24 楼
liaotianyi0114 [专家分：10] 发布于 2012-12-30 17:43:00
cls
input n
i=0
dim a(10)
do while n<>0
r=n mod 10
n=n\10
i=i+1
loop
end
25 楼
liaotianyi0114 [专家分：10] 发布于 2012-12-30 17:46:00
cls
input n
i=0
dim a(100)
do while n<>0
r=n mod 10
n=n\10
i=i+1
a(i)=r
loop
for j=i to 1 step -1
print a(j);
next j
end
我来回复
您所在位置：