75 条题解
-
0
song19931218 LV 9 @ 2009-10-09 19:38:07
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 416ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分：100 有效耗时：416ms
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|--
一开始脑子短路，竟然只把素数表开到了300，结果数据3,4,5全挂，后来开到50000，就过了。。。。。遗憾的是没能秒杀 -
0
huyuanming11 LV 10 @ 2009-10-05 11:09:46
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分：100 有效耗时：0ms
素数表+记忆化解决冗余 即可秒杀 -
0
81818181818 LV 4 @ 2009-10-01 17:56:57
居然是不同的质因子个数！不是总个数！
-
0
-
0
LiGHting man LV 8 @ 2009-08-09 12:54:18
1星，25AC，庆祝一下！！！
.....................
没想到3星的也这么容易啊， 我对生活有信心了！！！！（啊哈哈~~~~） -
0
相同的程序：
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：运行超时...
---|---|---|---|---|---|---|---|-
Unaccepted 有效得分：80 有效耗时：0ms|
|
|
|
\ /
.编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 744ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分：100 有效耗时：744ms -
0
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 9ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分：100 有效耗时：9ms当我遇上了 vivid puppy
我忽然发现 即使很水的程序都能轻轻松松过掉这道题我是对n,(n-1),(n-2)...(n-m+1)每一个都分别分解质因数 并累计在一个数组里面
然后对于1，2，...m 我也对它们分别分解质因数 然后在数组里删去
最后统计一下数组里还存在的质因数个数.......... -
0
这道题目就是考分解因式，可以用这种方法：
var m,n,i,j,k:longint;s:qword;a,b:array[0..50000] of longint;
begin
readln(n,m);
for i:= m+1 to n do
begin
j:=i;k:=2;
while j>1 do
begin
while (j mod k =0)and(j>1) do
begin inc(a[k]); j:=j div k;end;
inc(k);
end;
end;
for i:= 2 to m do
begin
j:=i;k:=2;
while j>1 do
begin
while (j mod k =0)and(j>1) do
begin inc(b[k]); j:=j div k; end;
inc(k);
end;
end; s:=0;
for i:=1 to n do
if a[i]-b[i]>0 then inc(s);
write(s);
end. -
0
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 696ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分：100 有效耗时：696msvar n,m,i,j,k,s,max:longint; a,b,c:array[0..50000]of longint;
w:array[1..5133]of longint=(0到50000质数打表省略);
function zhishu(q:longint):boolean;
var i:longint;
begin
if q=1 then zhishu:=false
else
begin
zhishu:=true;
for i:=2 to trunc(sqrt(q)) do if q mod i=0 then
begin
zhishu:=false;
end;
end;
end;
begin
s:=0;
readln(n,m);
for i:=1 to n do
if zhishu(i) then inc(a[i])
else
begin
j:=i;
k:=1;
while j1 do
if j mod w[k]=0 then
begin
inc(a[w[k]]);
j:=j div w[k];
end
else inc(k);
end;for i:=1 to m do
if zhishu(i) then inc(b[i])
else
begin
j:=i;
k:=1;
while j1 do
if j mod w[k]=0 then
begin
inc(b[w[k]]);
j:=j div w[k];
end
else inc(k);
end;
for i:=1 to n-m do
if zhishu(i) then inc(c[i])
else
begin
j:=i;
k:=1;
while j1 do
if j mod w[k]=0 then
begin
inc(c[w[k]]);
j:=j div w[k];
end
else inc(k);
end;
if n>m then max:=n else max:=m;
for i:=1 to max do
a[i]:=a[i]-b[i]-c[i];
for i:=1 to max do if a[i]0 then inc(s);
write(s);
end.
第一道难度3AC
song19931218
LV 9
@ 2009-10-09 19:38:07
