比赛 |
noip-081029 |
评测结果 |
WAAAEEEEEE |
题目名称 |
最多因子数 |
最终得分 |
30 |
用户昵称 |
elysian |
运行时间 |
0.000 s |
代码语言 |
Pascal |
内存使用 |
0.00 MiB |
提交时间 |
2008-10-29 21:50:19 |
显示代码纯文本
program divisors;
const
fin='divisors.in';fout='divisors.out';
var
n,m,i,j,y,max,t1,t2,tmp:longint;
a:array[0..50000000] of integer;
f1,f2:text;
begin
assign(f1,fin);reset(f1);
readln(f1,n,m);
close(f1);
y:=round(sqrt(m));
for i:=2 to y do
begin
t1:=n div i;
t2:=m div i;
if t1<i then t1:=i;
for j:=t1 to t2 do
if i<>j then inc(a[i*j],2)
else inc(a[i*j],1);
end;
for i:=n to m do
if a[i]>max then begin max:=a[i];tmp:=i;end;
assign(f2,fout);rewrite(f2);
writeln(f2,'Between ',n,' and ',m,',',tmp,' has a maximum of ',max+2,' divisors.');
close(f2);
end.