75 条题解
-
0
wangshan0908 LV 10 @ 2009-06-21 21:35:18
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分：100 有效耗时：0ms
var
a,hash:array[1..50000]of longint;
ss,sum,i,j,k,l,n,m:longint;
function check(v:longint):boolean;
var i:longint;
begin
for i:=2 to trunc(sqrt(v))do
if v mod i=0 then exit(false);
exit(true);
end;
procedure jia(n:longint);
var k,sum,l:longint;
begin
l:=1;
while (a[l] -
0
简单模拟
附核心程序：for i:=2 to n do
begin
t:=0;
for j:=2 to trunc(sqrt(i)) do
if i mod j=0 then
begin
t:=1;
break;
end;
if t=0 then
begin
inc(k);
a[k]:=i;
end;
end;
for i:=n downto m+1 do
begin
k:=i;
for j:=1 to k do
begin
while not(k mod a[j]0) do
begin
k:=k div a[j];
inc(c[a[j]]);
end;
if k=1 then break;
end;
end;
for i:=n-m downto 1 do
begin
k:=i;
for j:=1 to k do
begin
while not(k mod a[j]0) do
begin
k:=k div a[j];
dec(c[a[j]]);
end;
if k=1 then break;
end;
end; -
0
qhr7263933 LV 3 @ 2008-10-21 20:50:37
写了30KB的表！！！！
-
0
var m,n,c:longint;
function jc(n:longint):longint;
var i,s:longint;
begin
s:=1;
for i:=1 to n do
s:=s*i;
jc:=s;
end;
function fj(n:longint):longint;
var s,i,j:integer;
begin
s:=0;
for i:=2 to trunc(sqrt(n)) do
if n mod i=0 then begin for j:=1 to 100 do
if n mod i=0 then
n:=n div i else break;s:=s+1; end;
if s=0 then s:=1;
fj:=s;
end;
begin
read(n,m);
c:=jc(n) div (jc(m)*jc(n-m));
writeln(fj(c));
end.
为什么 ？
被零除 -
0
测评机有差异啊
第一次 测评机 Lora Temper
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：运行超时|无输出...
---|---|---|---|---|---|---|---|-
Unaccepted 有效得分：80 有效耗时：0ms第二次 测评机 Vivid Puppy
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 166ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分：100 有效耗时：166ms -
0
rty66666666 LV 3 @ 2007-11-30 14:54:24
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 25ms
朴素的搜索的威力。。
wangshan0908
LV 10
@ 2009-06-21 21:35:18
