查人人中国名人网吸毒检测时间:高手帮我编一下程。visual foxpro
来源：百度文库 编辑：查人人中国名人网 时间：2024/04/29 19:09:45
自然数对是指两个自然数得和与差都是平方数。如8和17的和8＋17＝25与其差17－8＝9都是平方数，则称8和17是自然数对，（8，17）。
假定（A,B)与(B,A)是同一个自然数对且假定A>=B，求所有小于等于100(即：A<=100,B<=100,A<>B,A和B均不等于0。）的自然数中B之和。
假定（A,B)与(B,A)是同一个自然数对且假定A>=B，求所有小于等于100(即：A<=100,B<=100,A<>B,A和B均不等于0。）的自然数中B之和。
下面程序求出所有满足条件的自然数对，求B之和已经很简单了，加两三行代码可完成。
FOR i = 1 TO 99
FOR j = i+1 TO 100
IF INT(sqrt(i+j)) = SQRT(i+j) AND INT(SQRT(j-i)) = SQRT(j-i)
?i,j
endi
endfo
endfo
运算结果：
4 5
6 10
8 17
10 26
12 13
12 37
14 50
16 20
16 65
18 82
20 29
24 25
24 40
28 53
30 34
32 68
36 45
36 85
40 41
42 58
48 52
48 73
54 90
56 65
60 61
64 80
70 74
72 97
80 89
84 85
96 100