填空题
完善下列程序,其功能是:找出3000以内的亲密数对。所谓“亲密数对”是指一对正整数m和n,m的所有小于m的因子(1视为因子)之和等于n,n的所有小于n的因子(1视为因子)之和等于m。例如,220和284是亲密数对,因为220的因子和为:1+2+4+5+10+11+20+22+44+55+110=284,284的因子和为:1+2+4+71+142=220。
CLEAR
FOR i=2 To 3000
m=0
n=0
FOR j=1 TO i-1 &&求i的因子之和
IF i/j=INT(i/j)
m=m+j
ENDIF
ENDFOR
FOR k=1 TO 1(19) 2 &&求m的因子之和
IF m/k=INT(m/k)
n=n+k
ENDIF
ENDFOR
IF __(20) 3 AND m