求高手进入
pascal吧
全部回复
仅看楼主
level 2
蔷薇蓝之水 楼主
我是新手求高手解答pascal问题。有这样一题：给一个不多于三位的正整数，求出它是几位数，并分别打印出各位上的数字。
2014年07月13日 08点07分 1
level 2
蔷薇蓝之水 楼主
谁会呀！
2014年07月13日 08点07分 2
level 11
abslime
方法一：直接分支语句模拟判断
方法二：循环分离位
方法三：字符串
2014年07月14日 12点07分 3
level 7
系他庄0O
我的想法是把它转换成字符串 然后用length函数求出长度 就是几位数 然后再用for一位一位的取[哈哈]
2014年07月15日 05点07分 4
level 11
ppfdd
不断mod 10 再div 10 就好了
2014年07月15日 17点07分 6
level 5
nice传说yea
while a>0 do
begin
inc(k);
s[k]:=a mod 10;
a:=a div 10;
end;
2014年07月16日 01点07分 7
level 12
ETODW◆
var s:string;i:longint;
begin
readln(s);
writeln(length(s));
for i:=1 to length(s)-1 do
write(s[i],' ');
writeln(s[length(s)]);
end.
2014年07月16日 09点07分 8
1