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

来源:学生作业帮助网 编辑:六六作业网 时间:2024/12/23 01:30:06
求1000到9999之间所有回文数的个数求1000到9999之间所有回文数的个数求1000到9999之间所有回文数的个数settalkoffclearn=0forx=1000to9999a=int(x

求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