阿Q吧 > 回文数是指正读和反读都一样的正整数。例如3773是回文数。⼀⼀求出[1000，9999]以内的所有回文数的个数。

回文数是指正读和反读都一样的正整数。例如3773是回文数。⼀⼀求出[1000，9999]以内的所有回文数的个数。

2024-11-30 00:51:11

推荐回答（1个）

回答1：

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
? n
set talk on
return
输出也可以更改为text控件，多行文本就没有窗体输出的问题了。
form1.print i 更改为,text1.text=text1.text

回文数是指正读和反读都一样的正整数。例如3773是回文数。 ⼀⼀求出[1000，9999]以内的所有回文数的个数。

回文数是指正读和反读都一样的正整数。例如3773是回文数。⼀⼀求出[1000，9999]以内的所有回文数的个数。