Question

free pascal作业

输入一个不超过6位的数，输出它的位数和各个位上的数。
如：
输入：12345
输出：5
5 4 3 2 1
注：必须用while循环，只能用除while循环外的：赋值语句，输入输出，if语句，case语句
不能用字符串

Answer 1

楼上的方法思路是对的，但不全。
有一个更好的方法，用字符串：
var s:string;len,n,i:integer;
begin
readln(s);
len:=length(s);
writeln(len);
i:=len;
while i>0 do begin
write(s[i],' ');
dec(i); end ;
end .

Answer 2

var n,i:integer;
begin
readln(n);
while n<>0 do
begin
write(n mod 10,' ');
n:=n div 10;
end;
end.

Answer 3

var m,n:longint;
s,d:string;
begin
readln(s);
n:=length(s);
writeln(n);
i:=1;
while i<=n do write（s[i],' '）;
end.