神马作文网用 pascal 编程
来源：学生作业帮 编辑：神马作文网作业帮 分类：综合作业 时间：2024/09/23 09:30:25
用 pascal 编程
Description
给出一个不多于5位的非负整数,要求
1、求出它是几位数
2、分别输出每一位数字
3、按逆序输出各位数字,例如原数为321,应输出123
Input
一个不大于5位的数字
Output
三行
第一行 位数
第二行 用空格分开的每个数字,注意最后一个数字后没有空格
第三行
按逆序输出这个数
Sample Input
12345
Sample Output
5
1 2 3 4 5
54321
Hint
0是几位数?
Source
Description
给出一个不多于5位的非负整数,要求
1、求出它是几位数
2、分别输出每一位数字
3、按逆序输出各位数字,例如原数为321,应输出123
Input
一个不大于5位的数字
Output
三行
第一行 位数
第二行 用空格分开的每个数字,注意最后一个数字后没有空格
第三行
按逆序输出这个数
Sample Input
12345
Sample Output
5
1 2 3 4 5
54321
Hint
0是几位数?
Source
var
s:string;
i:longint;
begin
readln(s);
writeln(length(s));
for i:=1 to length(s)do write(s[i],' ');
writeln;
for i :=length(s) downto 1 do write(s[i]);
end.
s:string;
i:longint;
begin
readln(s);
writeln(length(s));
for i:=1 to length(s)do write(s[i],' ');
writeln;
for i :=length(s) downto 1 do write(s[i]);
end.