您所在位置：主题：[讨论]我编的个程序，大家指教
sd5774188
[专家分：260] 发布于 2005-03-26 14:23:00
老师叫我编一个反向输出三位数的程序，我是这样编的，大家指教
program yb(inpur,output);
var m,a,b,c,x:integer;
begin
read(m);
a:=m mod 10;
b:=(m div 10)mod 10;
c:=m div 100;
x:=100*a+10*b+c;
write(x);
end.
program yb(inpur,output);
var m,a,b,c,x:integer;
begin
read(m);
a:=m mod 10;
b:=(m div 10)mod 10;
c:=m div 100;
x:=100*a+10*b+c;
write(x);
end.
