Question

pascal输入一个4位数，将它的各位数字倒序输出

比如输入1234，输出4321.不能writeln(d,c,b,a);这样输出。求用div和mod做

Answer 1

说了用 div和mod来做；
那就是
var
a,b,c,d,e:longint;
begin
readln(a); // （读入）
b:=a div 1000; // （拆分，取第一位）；
c:=a div 100 mod 10;// （拆分，取第二位）；
d:=a div 10 mod 10; //（拆分，取第三位）；
e:=a mod 10; // （拆分，取四位）；
write(e,d,c,b); // （输出）；
end.

Answer 2

Var
a,b,c,d:char;
begin
readln(a,b,c,d);
writeln(d,c,b,a);
end.

//最简洁答案
//程序刚入门吧！

Answer 3

可以使用字符串处理

var
s:string;
i:longint;
begin
readln(s);
for i:=length(s) downto 1 do write(s[i]);
writeln;
end.

Answer 4

var
s:string;
i:integer;
begin
readln(s);
for i:=length(s) downto 1 do write(s[i]);
end.

Answer 5

Var
a,b,c,d:char;
begin
readln(a,b,c,d);
writeln(d,c,b,a);
end.