输入一个不多于5位的正整数，要求（1）求出它是几位数；2）分别输出每一位数字（3）按逆序输出各位数字。

Question

Description输入一个不多于5位的正整数，要求： （1）求出它是几位数； （2）分别输出每一位数字； （3）按逆序输出各位数字。Input输入一个不多于5位的正整数。Output输出数据有3行，第一行为正整数位数，第二行为各位数字，第三行为逆序的各位数字。

Answer 1

            int 数字 = 58369;/*质（素）数、歌德巴赫、梅森质数、完美数等均需取数之各位处理。*/

            int[] 位数组 = new int[数字.ToString().Length];/*获取任意数各位。*/

            foreach (int 序 in Enumerable.Range(0, 位数组.Length))

                位数组[序] = int.Parse(数字.ToString()[序].ToString());/*虽然几经转换，处理语句简单多了。*/

            Console.WriteLine(位数组.Length);

            Console.WriteLine(string.Concat(位数组));

            Console.WriteLine(string.Concat(位数组.Reverse()));

Answer 2

帕斯卡：

变种A，S，I：Longint型;

B：数组整数[5 .. 1];

（一）; BR /> B [1]：=一模10;

B [2]：=一个div 10模10;

B [3]：=一格100模10;

b [4]：=一格1000 MOD 10;

B [5]：=一格1000;

对于i：= 15做

当b [I] > 0，INC（次）;

写（次）;

对于i：= S DOWNTO 1做

写（二由[i]）;

对于i：。 = 1到来做

写（二由[i]）;
我是学pascal的，有问题请找我

Answer 3

pascal:

var a,s,i:longint;
b:array[1..5] of integer;
begin
read(a);
b[1]:=a mod 10;
b[2]:=a div 10 mod 10;
b[3]:=a div 100 mod 10;
b[4]:=a div 1000 mod 10;
b[5]:=a div 1000;

for i:=1 to 5 do
if b[i]<>0 then inc(s);
write(s);
for i:=s downto 1 do
write(b[i]);
for i:=1 to s do
write(b[i]);
end.

我是学pascal的，有问题欢迎来找我~