百度作业网pascal亲密数对亲密数对时间限制:1秒 内存限制:64 MB试题描述键盘输入N,N在2至2000之内,求2至N中的亲
来源：学生作业帮 编辑：百度作业网作业帮 分类：综合作业 时间：2024/06/24 13:20:51
pascal亲密数对
亲密数对
时间限制:1秒 内存限制:64 MB
试题描述
键盘输入N,N在2至2000之内,求2至N中的亲密数对,就是A的因子和等于B,B的因子和等于A,并且A≠B.
如48和75是亲密数对.48的因子和为2+3+4+6+8+12+16+24=75,而75的因子和为3+5+15+25=48
输入要求
只有一行,为一个数N( 2
亲密数对
时间限制:1秒 内存限制:64 MB
试题描述
键盘输入N,N在2至2000之内,求2至N中的亲密数对,就是A的因子和等于B,B的因子和等于A,并且A≠B.
如48和75是亲密数对.48的因子和为2+3+4+6+8+12+16+24=75,而75的因子和为3+5+15+25=48
输入要求
只有一行,为一个数N( 2
var n,i,j:longint;
function yinzihe(n:longint):longint;
var s,i,j:longint;
begin
s:=0; j:=trunc(sqrt(n));
for i:=2 to j do
if n mod i=0 then inc(s,i+n div i);
if j*j=n then inc(s,j);
yinzihe:=s;
end;
begin
readln(n);
for i:=2 to n do
begin
j:=yinzihe(i);
if (ji)and(yinzihe(j)=i) then writeln(i:12,j:12);
end;
end.
function yinzihe(n:longint):longint;
var s,i,j:longint;
begin
s:=0; j:=trunc(sqrt(n));
for i:=2 to j do
if n mod i=0 then inc(s,i+n div i);
if j*j=n then inc(s,j);
yinzihe:=s;
end;
begin
readln(n);
for i:=2 to n do
begin
j:=yinzihe(i);
if (ji)and(yinzihe(j)=i) then writeln(i:12,j:12);
end;
end.
pascal亲密数对亲密数对时间限制:1秒 内存限制:64 MB试题描述键盘输入N,N在2至2000之内,求2至N中的亲
Pascal B:开灯游戏时间限制:1 Sec 内存限制:128 MB有n盏灯,放在一排,从1到n依次顺序编号.有m个人
用pascal求2到1000的亲密数对
二、 编写程序,求2到500之间的所有亲密数对.其中亲密数对的定义为:
pascal求大神1199:最大与最小时间限制:1 Sec 内存限制:128 MB提交:179 解决:91[提交][状态
D:ADA Ⅱ型数时间限制:1 Sec 内存限制:128 MB提交:246 解决:22[提交][状态][讨论版]ADAⅡ
在6至5000内找出所有的亲密数对,
数列极限：在定义中,N有何作用?即对n有何限制作用?
编程:找出2—1000中的亲密数对(如果a的因子和等于b,b的因子和等于a,且a≠b,则称a,b为亲密数对).
找2~1000中的亲密数对（如果a的因子和等于b ,b的因子和等于a ,且a≠b,则称a,b为亲密数对.
证明：对任意自然数n,代数式（n+1)(n+2)(n+3)(n+4)+1是一个完全平方数
C语言求2~100中的所有的亲密素数对的个数