qyule青娱乐王者回归:学过pascal的人进

来源:百度文库 编辑:神马品牌网 时间:2024/07/08 14:30:04
找2~1000中的亲密数对(如果a的因子和等于b ,b的因子和等于a ,且a≠b,则称a, b为亲密数对。

请问这道题怎么编啊?

FOR i:=2 TO 1000 DO
BEGIN
temp := Find(i);
IF( Find(temp) = i) THEN
writeln(i, ' ', temp);
END;

Find为因子和函数.