反素数问题用PASCAL做

来源：学生作业帮编辑：拍题作业网作业帮分类：综合作业时间：2024/05/02 01:34:28

反素数问题用PASCAL做
如果正整数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.
再问：不对

反素数问题用PASCAL做 PASCAL完全素数问题回文素数的个数,用pascal pascal题回文素数 pascal 孪生素数寻找素数 pascal 给出一个整数n,让你判断n是否是素数,如果n是素数,则输出 yes 否则输出 no 用pascal语言做题帮我用Pascal 程序语言做一下这道题；给定一个整数N,判断它是否为素数拜托了各位 pascal问题,请用while语句做出, 打印下列图形!用pascal做! 用pascal语言做一道题打印下列图形成用PASCAL做