阿里电话卡安全吗:学过pascal的人进

来源:百度文库 编辑:中科新闻网 时间:2024/05/15 19:13:55
找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为因子和函数.