bzoj1053

不难发现，要让约数尽可能多，那么素因子越小的的指数一定越大
可能的素因数的种类也不超过10种
然后直接暴搜即可

 1 const p:array[1..10] of longint=(2,3,5,7,11,13,17,19,23,29);
 2 var n,ant,ans:int64;
 3 procedure dfs(j:longint;m,s,t:int64);
 4   var i:longint;
 5   begin
 6     m:=m*int64(p[j]);
 7     if m>n then exit;
 8     s:=s div t*(t+1);
 9     if (s>ans) then
10     begin
11       ant:=m;
12       ans:=s;
13     end
14     else if (s=ans) and (ant>m) then
15       ant:=m;
16     dfs(j,m,s,t+1);
17     for i:=j+1 to 10 do
18       dfs(i,m,s,1);
19   end;
20 
21 begin
22   readln(n);
23   ans:=1;
24   ant:=1;
25   if n>1 then dfs(1,1,1,1);
26   writeln(ant);
27 end.
28 
29

View Code