测评机: Xeost[5]
得分: 20分
提交日期: 2010-11-2 19:36:00
有效耗时: 94毫秒
测试结果1: 选手程序运行超过时限
测试结果2: 选手程序无输出
测试结果3: 选手程序无输出
测试结果4: 选手程序无输出
测试结果5: 选手程序运行超过时限
测试结果6: 选手程序无输出
测试结果7: 选手程序无输出
测试结果8: 选手程序无输出
测试结果9: 通过本测试点|有效耗时47ms
测试结果10: 通过本测试点|有效耗时47ms
提交代码: view sourceprint?01.var n,k,i,j,q,tot,min:longint;
02.
t,p:array[0..120]of longint;
03.
a:array[0..100,0..100]of longint;
04.
s,s1:string;
05.procedure find(m:integer);
06.var i,j:integer;
07.begin
08.
if m>k then
09.
begin
10.
q:=0;
11.
for i:=1 to k do if p[i]=0 then begin q:=1;break;end;
12.
if q=0 then
13.
if tot<min then min:=tot;
14.
exit;
15.
end
16.
else for j:=0 to 1 do
17.
if j=0 then find(m+1)
18.
else
19.
begin
20.
for i:=1 to t[m] do inc(p[a[m,i]]);
21.
inc(tot);
22.
find(m+1);
23.
for i:=1 to t[m] do dec(p[a[m,i]]);
24.
dec(tot);
25.
end;
26.end;
27.begin
28.
29.
readln(n,k);
30.
min:=maxlongint;
31.
for i:=1 to k do
32.
begin
33.
read(t[i]);
34.
for j:=1 to t[i] do read(a[i,j]);
35.
end;
36.
find(1);
37.
writeln(min);
38.end
查看状态 Show Status
题目:解题
状态: Unaccepted
测评机: Xeond[6]
得分: 20分
提交日期: 2011-8-26 19:58:00
有效耗时: 94毫秒
RQNOJ近期在线比赛列表
RQNOJ八月份月赛 时间:2011-8-27 18:00:00 [报名]
测试结果1: 选手程序运行超过时限
测试结果2: 选手程序无输出
测试结果3: 选手程序无输出
测试结果4: 选手程序无输出
测试结果5: 选手程序运行超过时限
测试结果6: 选手程序无输出
测试结果7: 选手程序无输出
测试结果8: 选手程序无输出
测试结果9: 通过本测试点|有效耗时47ms
测试结果10: 通过本测试点|有效耗时47ms