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

阿皓645 1年前 已收到1个回答 举报

bvsgy 幼苗

共回答了15个问题采纳率:93.3% 举报

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

1年前

5
可能相似的问题
Copyright © 2024 YULUCN.COM - 雨露学习互助 - 16 q. 0.022 s. - webmaster@yulucn.com