用while循环获得逆序数，

输入 1369   输出 9631     

readln(n);

s:=0;

while n>0 do

    begin

    x:=n mod 10;

   n:=n div 10;

   s:=s*10+x;  //这是一个非常特殊的累加器

end;

用获得逆序数的方法，还可以用来判断一个数字是不是回文数

用列表格分析