qbasi编程求这样一个4位自然数,它是一个完全平方数,且前两位相同,后两位相同

来源：百度知道 编辑：UC知道 时间：2024/05/31 10:34:22
希望答案能有解释,希望大家多帮帮忙
为什么不能这样求它的十位=I*I MOD 100)DIV 10
百位=i*i DIV 100-(i*i DIV 1000)*10

完整的程序代码如下：

FOR i = 9 TO 99
x = i * i
a = x MOD 10
b = x \ 10 MOD 10
c = x \ 100 MOD 10
d = x \ 1000
IF a = b AND c = d THEN PRINT i * i
NEXT i

程序很简单，从9～99循环，枚举所有的4位完全平方数x=i^2，然获取这个完全平方数x的四个数字，如果满足要求就输出。

程序结果是7744＝88＾2