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

来源:学生作业帮助网 编辑:作业帮 时间:2024/11/08 08:55:17

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

求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