木之林的他不爱我:Pascal语言输入一个4位数,把它的各位数字倒序输出

programe bianhuan;
var a,b,i,j,m,n:int;
begin
write('please input the number:(a)');
read(a);
i=div(a/1000);
j=div((a-i*1000)/100);
m=div((a-i*1000-j*100)/10);
n=div(a-i*1000-j*100-m*10);
b=n*1000+m*100+j*10+i;
write(b);
end.

多年没有用了，都忘了可能是这样的吧，你试试吧！

不会，不过VB中有个StrReverse 函数可以

program l_1(input,output);
var
a,b,i:integer;
b:array[1..4] of integer;
begin
readln(a);
b:=a;
for i:=1 to 4 do
begin
a[i]:=b mod 10;
b:=b div 10;
end;
for i:=4 downto 1 do
write(a[i]);
writeln;
end.

program ex1;

var a:string;

function change(num:string):string;
var
tmp:string;
i,c:integer;
begin
tmp:=num;{分配内存}
c:=length(num);{取得长度}
for i:=c downto 1 do
begin
tmp[i]:=num[c-i+1];
end;
change:=tmp;
end;

begin
writeln('Type in a number');
readln(a);
writeln(change(a));
readln;{卡住Dos窗口}
end.

TP下测试通过
可以输入任意长度的东西反过来