用VF 写程序 :求1~1000之内的同构数(同构数:若A是同构数,则A出现在A的平方数右边.如:5*5=25,5出现在25的右边)

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/03 15:42:33
用VF 写程序 :求1~1000之内的同构数(同构数:若A是同构数,则A出现在A的平方数右边.如:5*5=25,5出现在25的右边)

用VF 写程序 :求1~1000之内的同构数(同构数:若A是同构数,则A出现在A的平方数右边.如:5*5=25,5出现在25的右边)
用VF 写程序 :求1~1000之内的同构数
(同构数:若A是同构数,则A出现在A的平方数右边.如:5*5=25,5出现在25的右边)

用VF 写程序 :求1~1000之内的同构数(同构数:若A是同构数,则A出现在A的平方数右边.如:5*5=25,5出现在25的右边)
clear
?"1~1000之内的同构数有:"
for i=1 to 1000
k=i*i
m=len(alltrim(str(i)))
if (k-i)%(10^m)=0
?i
endif
endfor