clear
input "请输入一个数:" to x
  c=x
  s=0
  f=.t.
do while x!=0
   a=x%10
   s=s*10+a
   x=int (x/10)
   if s!=c
   f=.f.
endif
enddo

   if f=.t.
   ?"shihuiwen
   else
   ?"bushi"
   endif
   cancel



判断一个数是否问回文数这样编程错在哪里了呢？？？

呵呵谢了