求1000到9999之间所有回文数的个数

来源:学生作业学帮网 编辑:学帮网 时间:2024/05/16 09:37:23

求1000到9999之间所有回文数的个数

set talk off
clear
n=0
for x=1000 to 9999
a=int(x/1000)
b=int((x-a*1000)/100)
c=int((x-a*1000-b*100)/10)
d=mod(x,10)
if a=d and b=c and mod(x,6)=0
n=n+1
endif
endfor
set talk on
return