问题描述：
pascal语言for
如果整数A的全部因子（包括1,不包括A本身）之和等于B,且整数B的全部因子（包括1,不包括B本身）之和等于A,则将整数A和B称为亲密数．求3000以内的全部亲密数.
(要求：A < B )
这是我编写的程序
program Project1;
var
a,i,b,E,S:longint;
begin
for a:= 3 to 3000 do
begin
S:=0; E:=0;
for i:=1 to i-1 do
if (a mod i =0) then
S:=S+i;
for b:=1 to S-1 do
if (S mod b =0) then
E:=E+b
end;
if (a=E) and (a
如果整数A的全部因子（包括1,不包括A本身）之和等于B,且整数B的全部因子（包括1,不包括B本身）之和等于A,则将整数A和B称为亲密数．求3000以内的全部亲密数.
(要求：A < B )
这是我编写的程序
program Project1;
var
a,i,b,E,S:longint;
begin
for a:= 3 to 3000 do
begin
S:=0; E:=0;
for i:=1 to i-1 do
if (a mod i =0) then
S:=S+i;
for b:=1 to S-1 do
if (S mod b =0) then
E:=E+b
end;
if (a=E) and (a
问题解答：
我来补答
program Project1;
var
a,i,b,E,S:longint;
begin
for a:= 3 to 3000 do
begin
S:=0; E:=0;
for i:=1 to a div 2 do {这里原来的i-1是错了的,a-1也可,只是做了一半无用功 }
if (a mod i =0) then S:=S+i;
for b:=1 to S div 2 do
if (S mod b =0) then E:=E+b;
if (a=E) and (a
再问： 怎么安排到内部 ，能完完整整写一遍给我看吗
再问： 怎么放在内部 还是不可以 能完整写一遍吗
再答： 上面的程序已经修改好了，可以直接运行。已经运行通过了，答案正确。
再问： 那个放在内部呢，还是不行
再答：
var
a,i,b,E,S:longint;
begin
for a:= 3 to 3000 do
begin
S:=0; E:=0;
for i:=1 to a div 2 do {这里原来的i-1是错了的,a-1也可,只是做了一半无用功 }
if (a mod i =0) then S:=S+i;
for b:=1 to S div 2 do
if (S mod b =0) then E:=E+b;
if (a=E) and (a
再问： 怎么安排到内部 ，能完完整整写一遍给我看吗
再问： 怎么放在内部 还是不可以 能完整写一遍吗
再答： 上面的程序已经修改好了，可以直接运行。已经运行通过了，答案正确。
再问： 那个放在内部呢，还是不行
再答：
展开全文阅读