|
|
发表于 2012-1-19 22:38:30
|
显示全部楼层
for 317→i to 999
if Mod(i,100)=0 or Mod(i,10)=0 of Mod(i-Mod(i,10),100)=0
then nothing....
else
0→count
i^2→k
if Mod(k,10)=0
then count+1→count
else k - Mod(k,10)→k
ifend
if Mod(k,100)=0
then count+1→count
else k - Mod(k,100)→k
ifend
if Mod(k,1000)=0
then count+1→count
else k - Mod(k,1000)→k
ifend
if Mod(k,10000)=0
then count+1→count
else k - Mod(k,10000)→k
ifend
if Mod(k,100000)=0
then count+1→count
ifend
if count=3
then i*i◢
ifend
ifend
next |
|