QBASIC编程问题(简单问题)

最后一个如果我& gt段落=1000可以完全省略，因为题目要求在100以内。

你的b也没用。

让我试一下

cls

I=1

对于I=1至100

a=len(str$(I))-1

b=I^2

c=10^a

如果b mod c = I，那么d=d+1

然后

打印“***有”；d；“同构数”

结束