Question

编程:求四位完全平方数:它的千位数字与十位数字之和等于百位数字与个位数之积

(1)共有多少个符合上述条件的四位完全平方数？
(2)(1)中所有四位完全平方数之和。

Answer 1

FOR i=32 TO 99 ' 32^2-99^2 总共最多只有68个
LET s=i^2
LET a=IP(s/1000) ' 取整数部分
LET x=MOD(s,1000) ' 取余数部分
LET b=IP(x/100)
LET x=MOD(x,100)
LET c=IP(x/10)
LET d=MOD(x,10)
IF (a+c)=b*d THEN
PRINT s;a;b;c;d
END IF
NEXT i
END

只有三个数， 1156 3136 7921

求和你应该会的。