求一道计算机PASCAL编程题答案!!!25分以下悬赏!!!急死人了!!

来源：百度知道 编辑：UC知道 时间：2024/07/05 05:59:36
明天早上老师就要查了!!
题目:
编写一个程序把任意读入的一个四位数颠倒后输出:如输入3581则输出1583
要有程序说明定义
悬赏待我看完满意再提高~~
急!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

如果只是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.

如果不确定位数的话可以用一个循环来把每个数字存储到数组中，然后逆序输出就可以了。

program dao(input,output);
var
a:string;
i:longint;
begin
readln(a);
for i:= length(a) downto 1 do write(a[i]);
end.

利用字符串即可解决。

VAR
N: INTEGER;
A: ARRAY[1..4] OF INTEGER;
BEGIN
READLN (N);
A[1]:=N MOD 10;
A[2]:=N DIV 10 MOD 10;
A[3]:=N DIV 100 MOD 10;
A[4]:=N DIV 1000;
WRITELN (A[1],A[2],A[3],A[4]);
READLN
END.

var
s:string;
begin
read(s);
write(copy(s,4,1));
write(copy(s,2,1));
write(copy(s,3,1));
write(copy(s,1,1))