P1172 反质数数
对于任何正整数x,其约数的个数记作g(x)。例如g(1)=1、g(6)=4。
如果某个正整数x满足:g(x)>g(i),(i大于0小于x)则称x为反质数。例如,整数1,2,4,6等都是反质数。
现在给定一个数N,你能求出不超过N的最大的反质数么?
格式
输入格式
输入只有一行,一个数N(1<=N<=2,000,000,000)。
输出格式
输出也只有一行,为不超过N的最大的反质数。
样例1
1000
样例输出
840
program df;
var i,j,n,m,k,t:longint;
x,y,z,kk,tt:int64;
g:array[0..1000] of int64;
a:array[1..13] of longint=(2,3,5,7,11,13,17,19,23,29,31,37,41);
procedure dfs(y,x,z,t:longint); //y为当前的数,z为当前的约数个数,x为当前要乘的数,t为连乘的次数
var i,j:longint;
s:int64;
begin
s:=y;
if (z>kk) or((kk=z) and (s小于tt)) then(小于号博客莫名其妙显示不出来,见谅)
begin
kk:=z;
tt:=s;
end;
for i:=1 to t do
begin
s:=s*a[x];
if s>n then break;
dfs(s,x+1,z*(i+1),i);
end;
end;
begin
readln(n);
dfs(1,1,1,10);
writeln(tt);
end.