请帮忙编一下这个程序 — 编程爱好者社区

您所在位置：社区首页 — QBasic讨论区 — 请帮忙编一下这个程序

主题：请帮忙编一下这个程序

杨333 [专家分：0] 发布于 2005-09-29 10:11:00

编程找出1到100之间的”同构数“ ”同构数“ 是这样一种数；它出现在它的平方数的右端

例如5的平方是25，5是25中右端的数，5就是同构数；25也是一个同构数它的平方是625

沙发

def [专家分：3380] 发布于 2005-10-04 20:03:00

input j
for i=1 to j
if right$(ltrim$(str$(i^2)),len(ltrim$(str$(i))))=ltrim$(str$(i)) then
print i;
endif
next i
没测试，但你可以测试，不要懒。。。

您尚未登录，请登录后再回复。点此登录或注册