用VF 写程序 ：求1~1000之内的同构数
答案:2 悬赏:40 手机版
解决时间 2021-01-25 23:48
- 提问者网友：战魂
- 2021-01-25 01:41
（同构数：若A是同构数，则A出现在A的平方数右边。如： 5*5=25，5出现在25的右边）
最佳答案
- 五星知识达人网友：愁杀梦里人
- 2021-01-25 02:23
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
?"1~1000之内的同构数有："
for i=1 to 1000
k=i*i
m=len(alltrim(str(i)))
if (k-i)%(10^m)=0
??i
endif
endfor
全部回答
- 1楼网友：青尢
- 2021-01-25 02:37
clear
s=0
?"2到99999的同构数有："
for i=2 to 99999
k=alltrim(str(i*i))
m=alltrim(str(i))
if right(k,len(m))=m
??i
s=s+i
endif
endfor
?"它们的和：",s
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯