[vijos P1035] 貪婪的送禮者

標籤：style   blog   http   color   資料   os   

為何我要做此等弱智題，只因我太久不碼代碼，心有所虛…

明天的任務是，做些難題，累了就理房間，實在不行就睡覺，不要做別的事情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