pascal编程：超级数

来源：学生作业帮编辑：搜搜考试网作业帮分类：综合作业时间：2024/06/04 13:01:59

pascal编程：超级数
设x的约数个数为f(x),若f(n)>f(i)（0

var
m,i,max,j,t:longint;
a:Array[0..10000]of longint;
f:array[1..10000]of longint;
begin
readln(m);
for i:=1 to m do read(a[i]);
for i:=1 to m-1 do for j:=i+1 to m do if a[i]>a[j] then
begin
t:=a[i];
a[i]:=a[j];
a[j]:=t;
end;
for i:=1 to m do
begin
for j:=a[i-1]+1 to a[i] do
begin
for t:=1 to trunc(sqrt(j)) do
if j mod t=0 then inc(f[j]);
if trunc(sqrt(j))=sqrt(j) then f[j]:=f[j]*2-1
else f[j]:=f[j]*2;
if max

pascal编程：超级数 pascal编程：方格取数编程（用 PASCAL) pascal编程超急 pascal编程：统计数字 pascal编程：阶乘 Turbo Pascal编程题目 Turbo Pascal编程问题 pascal编程数字图形 pascal语言编程题 pascal编程!今天就要! Free Pascal语言编程