您所在位置：主题：[原创]雷劈数
wy112112112
[专家分：240] 发布于 2010-07-05 10:51:00
z=0
a=""
z2=0
b=""
for i=1 to 10000 step 1
for j=1 to 10000 step 1
z=i+j
a=alltrim(str(i))+alltrim(str(j))
z2=z*z
b=alltrim(str(z2))
if a=b
?alltrim(str(i))+"+"+alltrim(str(j))+"="+alltrim(str(z))+"，"+alltrim(str(z))+"*"+alltrim(str(z))+"="+a
else
loop
endif
endfor
endfor
a=""
z2=0
b=""
for i=1 to 10000 step 1
for j=1 to 10000 step 1
z=i+j
a=alltrim(str(i))+alltrim(str(j))
z2=z*z
b=alltrim(str(z2))
if a=b
?alltrim(str(i))+"+"+alltrim(str(j))+"="+alltrim(str(z))+"，"+alltrim(str(z))+"*"+alltrim(str(z))+"="+a
else
loop
endif
endfor
endfor
