为何我要做此等弱智题，只因我太久不码代码，心有所虚…

明天的任务是，做些难题，累了就理房间，实在不行就睡觉，不要做别的事情w 目测自己做不到呢OAO

program vijos_p1035;var namelist:array[1..10] of string;    ans:array[1..10] of integer;    n,i,j,ni,money:integer;    s,ss:string;function loc(st:string):integer;var i:integer;begin  i:=1;  while namelist[i]<>st do inc(i);  exit(i);end;begin {main}  readln(n);  for i:=1 to n do    readln(namelist[i]);  for j:=1 to n do    begin      readln(s);      readln(money,ni);      for i:=1 to ni do        begin          readln(ss);          inc(ans[loc(ss)],money div ni);        end;      if ni<>0 then dec(ans[loc(s)],money div ni * ni);    end;  for i:=1 to n do    writeln(namelist[i],‘ ‘,ans[i]);end.

贪婪的送礼者

测试数据 #0: Accepted, time = 0 ms, mem = 744 KiB, score = 10

测试数据 #1: Accepted, time = 0 ms, mem = 744 KiB, score = 10

测试数据 #2: Accepted, time = 15 ms, mem = 744 KiB, score = 10

测试数据 #3: Accepted, time = 15 ms, mem = 744 KiB, score = 10

测试数据 #4: Accepted, time = 0 ms, mem = 744 KiB, score = 10

测试数据 #5: Accepted, time = 0 ms, mem = 744 KiB, score = 10

测试数据 #6: Accepted, time = 0 ms, mem = 744 KiB, score = 10

测试数据 #7: Accepted, time = 0 ms, mem = 748 KiB, score = 10

测试数据 #8: Accepted, time = 0 ms, mem = 744 KiB, score = 10

测试数据 #9: Accepted, time = 0 ms, mem = 740 KiB, score = 10

Accepted, time = 30 ms, mem = 748 KiB, score = 100