点击查看代码

另外说一下新的检测机比较慢，就不要一心想要拿10个0ms了

const b:array[1..80]of longint=(1,

2,

4,

6,

16,

12,

64,

24,

36,

48,

1024,

60,

4096,

192,

144,

120,

0,

180,

0,

240,

576,

3072,

0,

360,

1296,

12288,

900,

960,

0,

720,

0,

840,

9216,

0,

5184,

1260,

0,

0,

0,

1680,

0,

2880,

0,

15360,

3600,

0,

0,

2520,

0,

6480,

0,

0,

0,

6300,

0,

6720,

0,

0,

0,

5040,

0,

0,

14400,

7560,

0,

0,

0,

0,

0,

0,

0,

10080,

0,

0,

0,

0,

0,

0,

0,

15120);

var

k:longint;

begin

readln(k);

if b[k]0 then writeln(b[k])

else writeln('NO SOLUTION')

end.

表。

每个数 的因数个数=其因式分解的每项的次数+1 的乘积

如

60=2^2+3^1+5^1 因数个数=(2+1)(1+1)(1+1)=12

靠这个 枚举

或者 从k出发 贪心 皆可MS

var k,n,m,sum,j,i,l:longint;

begin

read(k);

for i:=1 to 20000 do

begin

sum:=0;

m:=trunc(i div 2);

for j:=1 to m+1 do

if i mod j=0 then sum:=sum+1;

sum:=sum+1;

if sum=k then begin write(i);exit;end;

end;

write('NO SOLUTION');

end.

nnd两边才过，把SOLUTION写成了SOLTION，我看了测评后直接无语了

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

枚举

var

i,j,k,l,n,m,sum:longint;

begin

readln(k);

for i:=1 to 20000 do

begin

n:=0;

for j:=1 to (i div 2)+1 do

if i mod j=0 then

inc(n);

inc(n);

if n=k then begin write(i); exit; end;

end;

write('NO SOLUTION');

end.

数据悲剧了。。。。枚举过了

枚举都能过好吧

我要是能够正确的估计程序运行时间该多好啊

一开始真没想到枚举也能过的

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

const d:array[1..35]of longint=(2,3,5,7,11,13,17,19,23,29,31,37,41,43,47,

53,59,61,67,71,73,79,83,89,97,101,103,107,109,113,127,131,137,139,149);

var

i,j,k,n,x,ans:longint;

a:array[1..35]of longint;

begin

readln(k);

for i:=k to 20000 do

begin

x:=i;filldword(a,sizeof(a)shr 2,1);

for j:=1 to 35 do

begin

while x mod d[j]=0 do begin inc(a[j]);x:=x div d[j];end;

end;

ans:=1;

for j:=1 to 35 do

ans:=ans*a[j];

if ans=k then begin writeln(i);exit;end;

end;

writeln('NO SOLUTION');

end.

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

第一次写了个SB的贪心，60分（连程序都打错了，无语了）；

写了个素数表，秒杀；

本来还想打表的,结果原来这么水;

非打表AC，地球人都知道的方法！

---|---|---|---|---|---|---|---|---|--

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

同学们,打表吧

.

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 353ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 369ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 72ms

├ 测试数据 08：答案正确... 212ms

├ 测试数据 09：答案正确... 447ms

├ 测试数据 10：答案正确... 197ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：1650ms

分类：

k=0：无解

k=1：输出0

k为奇：只需检验完全平方数

k为偶

……

int count(int n)

{

int i,sum=0;

for(i=2;i

program p1;

var n,i,j,m,max,total:longint;

c,k:array[1..80]of longint;

begin

readln(n);

k[1]:=2;

k[2]:=3;

k[3]:=5;

k[4]:=7;

k[5]:=11;

k[6]:=13;

k[7]:=17;

k[8]:=19;

k[9]:=23;

k[10]:=29;

k[11]:=31;

k[12]:=37;

k[13]:=41;

k[14]:=43;

k[15]:=47;

k[16]:=53;

k[17]:=59;

k[18]:=61;

k[19]:=67;

k[20]:=71;

k[21]:=73;

k[22]:=79;

k[23]:=83;

for i:=1 to 23 do

begin

c[i]:=0;

while n mod k[i] =0 do

begin

n:=n div k[i];

inc(c[i]);

end;

end;

total:=1;

for i:=1 to 23 do

c[i]:=c[i]-1;

max:=-1;

for i:=1 to 23 do

begin

if c[i]>=1 then

begin

if max20000 then

writeln('no solution');

if total

program vijos1229;

var

a:array[1..80]of longint;

i,n:longint;

begin

fillchar(a,sizeof(a),0);

a[1]:=1;

a[2]:=2;

a[3]:=4;

a[4]:=6;

a[5]:=16;

a[6]:=12;

a[7]:=64;

a[8]:=24;

a[9]:=36;

a[10]:=48;

a[11]:=1024;

a[12]:=60;

a[13]:=4096;

a[14]:=192;

a[15]:=144;

a[16]:=120;

a[18]:=180;

a[20]:=240;

a[21]:=576;

a[22]:=3072;

a[24]:=360;

a[25]:=1296;

a[26]:=12288;

a[27]:=900;

a[28]:=960;

a[30]:=720;

a[32]:=840;

a[33]:=9216;

a[35]:=5184;

a[36]:=1260;

a[40]:=1680;

a[42]:=2880;

a[44]:=15360;

a[45]:=3600;

a[48]:=2520;

a[50]:=6480;

a[54]:=6300;

a[56]:=6720;

a[60]:=5040;

a[63]:=14400;

a[64]:=7560;

a[72]:=10080;

a[80]:=15120;

readln(n);

if (a[n]>20000)or(a[n]=0) then writeln('NO SOLUTION')

else writeln(a[n]);

end.

打表党的胜利……

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

├ 标准行输出 NO S...

├ 错误行输出 2139...

打表过的..

会祖国大寿，遇一水题，刷之以庆！