问题：你是想要0排头，还是不想要0排头？

如果只是三位正整数的话，比较简单：

input m%
print (m% mod 10)*100 + ((m% mod 100)\10)*10 + m%\100

如果是多位数或者是非得要0的话：

input m&
s$=ltrim$(str$(m&))
l%=len(s$)
for i%= 1 to l%\2
  a$=mid$(s$,i%,1)
  mid$(s$,i%,1)=mid$(s$,l%-i%+1,1)
  mid$(s$,l%-i%+1,1)=a$
next
print s$

INPUT "num:"; num$
PRINT RIGHT$(num$, 1); MID$(num$, 2, 1); LEFT$(num$, 1)
END