公安部潘志强简历:学过pascal的人进

来源：百度文库 编辑：杭州交通信息网 时间：2024/05/01 01:16: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为因子和函数.

学过pascal的人进 会PASCAL的进 pascal懂的进 学过PASCAL大概多久能掌握DELPHI PASCAL怎样学 我想学PASCAL 我想学PASCAL 谁能帮我推荐几个学Pascal语言的网址 如何学习编程，我只是在N年前上学时学过BASIC，PASCAL Pascal是Dephi的语言基础，为什么它的教程很少，难道学Dephi就不要学习Pascal了吗