var
n,i,j,k:longint;
ls1,ls2:longint;
r1,r2:array[1..10] of string;
q:array[1..10] of longint;
ls:string;
begin
readln(n);
for i:=1 to n do
readln(r1[i]);
for i:=1 to n do
begin
readln(r2[i]);
readln(ls1,ls2);
for j:=1 to n do
if r2[i]=r1[j] then
begin
if ls2>0 then q[j]:=q[j]-(ls1-ls1 mod ls2);
end;
if ls2>0 then
begin
for j:=1 to ls2 do
begin
readln(ls);
for k:=1 to n do
if r1[k]=ls then
q[k]:=q[k]+ls1 div ls2;
end;
end;
end;
for i:=1 to n do
writeln(r1[i],' ',q[i]);
end.
一大堆的福利之【USACO题库】Greedy Gift Givers贪婪的礼物送礼者
最新推荐文章于 2024-01-16 21:56:33 发布