大师作文网反素数问题用PASCAL做
来源：学生作业帮 编辑：大师作文网作业帮 分类：综合作业 时间：2024/11/10 18:27:22
反素数问题用PASCAL做
如果正整数n的约数个数超过比n小的任何数的约数个数,则n称为反素数.输入一个n(n
如果正整数n的约数个数超过比n小的任何数的约数个数,则n称为反素数.输入一个n(n
var i,n,a:longint;
function fan(l:longint):longint;
begin
fan:=0;
for i:=1 to l do
if l mod i=0 then fan:=fan+1;
end;
function su(k:longint):boolean;
begin
su:=true;
for i:=1 to k do
if fan(i)>fan(k) then su:=false;
end;
begin
read(n);
for i:=1 to n do if su(i) then a:=i;
write(a);//write(fan(4)>fan(5))
end.
再问： 不对
function fan(l:longint):longint;
begin
fan:=0;
for i:=1 to l do
if l mod i=0 then fan:=fan+1;
end;
function su(k:longint):boolean;
begin
su:=true;
for i:=1 to k do
if fan(i)>fan(k) then su:=false;
end;
begin
read(n);
for i:=1 to n do if su(i) then a:=i;
write(a);//write(fan(4)>fan(5))
end.
再问： 不对