184 条题解
-
0
lc782 LV 8 @ 2008-09-13 11:22:57
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分：100 有效耗时：0ms
好水的题目
function su(x:int64):boolean;
var i:longint;
begin
su:=true;
for i:=2 to trunc(sqrt(x))do
if x mod i=0 then su:=false;
end;
procedure xuan(z:integer;y:integer;sum:int64);
var b:int64;i:integer;
begin
if y=k then
for i:=z to n do
begin
b:=sum;
inc(b,a[i]);
if su(b) then inc (total);
end
else
for i:=z to n do
begin
b:=sum;
inc(b,a[i]);
xuan(i+1,y+1,b);
end;
end; -
0
program dd;
var
k,n,w,total,i:longint;
a:array[1..400]of integer;
b:array[1..400]of boolean;
procedure pan;
var
i:integer;
d:boolean;
begin
for i:=2 to w -1 do
if w mod i0 then begin d:=false; exit; end;
total:=total+1;
end;procedure try(x:integer);
var
i:integer;
begin
if x>k then pan
else for i:=1 to n do
if b[i]
then begin
b[i]:=false;
w:=w+a[i];
try(x+1);
w:=w-a[i];
b[i]:=true;
end;
end;begin
read(n,k);
for i:=1 to n do
begin
read(a[i]);
b[i]:=true;
end;
total:=0;
w:=0;
try(1);
write(total);end.
-
0
wangxiao_73 LV 4 @ 2008-09-03 23:09:13
这么简单的题 大家不要想复杂了
-
0
编译通过...
├ 测试数据 01：答案错误... ├ 标准行输出
├ 错误行输出
├ 测试数据 02：答案错误... ├ 标准行输出
├ 错误行输出
├ 测试数据 03：答案错误... ├ 标准行输出
├ 错误行输出
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案错误... ├ 标准行输出
├ 错误行输出
---|---|---|---|---|---|---|---|-
Unaccepted 有效得分：20 有效耗时：0ms..交了1291的程序
20分
RP++++
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分：100 有效耗时：0ms -
0
narutosama LV 3 @ 2008-07-22 22:59:22
唉，形参和值参没弄好，让我卡了好久，真是白痴啊
-
0
asd4823765 LV 9 @ 2007-11-18 19:39:03
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分：100 有效耗时：0ms -
0
坏题！！！绝对的坏题，判断素数是否重复：
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案错误... ├ 标准行输出
├ 错误行输出
├ 测试数据 03：答案错误... ├ 标准行输出
├ 错误行输出
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案错误... ├ 标准行输出
├ 错误行输出
---|---|---|---|---|---|---|---|-
Unaccepted 有效得分：40 有效耗时：0ms删掉判断
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分：100 有效耗时：0ms -
0
cool_leaf_xp LV 3 @ 2007-07-30 15:15:13
---|---|---|---|---|---|---|-谁说我不会回溯?
lc782
LV 8
@ 2008-09-13 11:22:57
