您所在位置：主题：帮帮我。。
~风刀霜剑~
[专家分：0] 发布于 2005-10-28 21:34:00
输入一个四位数方向输出。怎么编？
我编的是
program ex1;
var a,b,c,d,abcd,dcba:real;
begin
readln(abcd);
a:=abcd mod 10;
b:=abcd div 10 mod 10;
c:=abcd div 100 mod 10;
d:=abcd div 1000;
dcba:=a*1000+b*100+c*10+d;
writeln('dcba=',dcba);
end.
我编的是
program ex1;
var a,b,c,d,abcd,dcba:real;
begin
readln(abcd);
a:=abcd mod 10;
b:=abcd div 10 mod 10;
c:=abcd div 100 mod 10;
d:=abcd div 1000;
dcba:=a*1000+b*100+c*10+d;
writeln('dcba=',dcba);
end.
