pascal语言for如果整数A的全部因子(包括1,不包括A本身)之和等于B,且整数B的全部因子(包括1,不包括B本身)之和等于A,则将整数A和B称为亲密数.求3000以内的全部亲密数.(要求:A < B )这是我
来源:学生作业帮助网 编辑:作业帮 时间:2024/08/07 04:44:01
![pascal语言for如果整数A的全部因子(包括1,不包括A本身)之和等于B,且整数B的全部因子(包括1,不包括B本身)之和等于A,则将整数A和B称为亲密数.求3000以内的全部亲密数.(要求:A < B )这是我](/uploads/image/z/2413627-43-7.jpg?t=pascal%E8%AF%AD%E8%A8%80for%E5%A6%82%E6%9E%9C%E6%95%B4%E6%95%B0A%E7%9A%84%E5%85%A8%E9%83%A8%E5%9B%A0%E5%AD%90%EF%BC%88%E5%8C%85%E6%8B%AC1%2C%E4%B8%8D%E5%8C%85%E6%8B%ACA%E6%9C%AC%E8%BA%AB%EF%BC%89%E4%B9%8B%E5%92%8C%E7%AD%89%E4%BA%8EB%2C%E4%B8%94%E6%95%B4%E6%95%B0B%E7%9A%84%E5%85%A8%E9%83%A8%E5%9B%A0%E5%AD%90%EF%BC%88%E5%8C%85%E6%8B%AC1%2C%E4%B8%8D%E5%8C%85%E6%8B%ACB%E6%9C%AC%E8%BA%AB%EF%BC%89%E4%B9%8B%E5%92%8C%E7%AD%89%E4%BA%8EA%2C%E5%88%99%E5%B0%86%E6%95%B4%E6%95%B0A%E5%92%8CB%E7%A7%B0%E4%B8%BA%E4%BA%B2%E5%AF%86%E6%95%B0%EF%BC%8E%E6%B1%823000%E4%BB%A5%E5%86%85%E7%9A%84%E5%85%A8%E9%83%A8%E4%BA%B2%E5%AF%86%E6%95%B0.%28%E8%A6%81%E6%B1%82%EF%BC%9AA+%3C+B+%29%E8%BF%99%E6%98%AF%E6%88%91)
pascal语言for如果整数A的全部因子(包括1,不包括A本身)之和等于B,且整数B的全部因子(包括1,不包括B本身)之和等于A,则将整数A和B称为亲密数.求3000以内的全部亲密数.(要求:A < B )这是我
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
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 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