比赛 20101025 评测结果 AAAAAAAAAA
题目名称 NBA总冠军 最终得分 100
用户昵称 belong.zmx 运行时间 0.000 s
代码语言 Pascal 内存使用 0.00 MiB
提交时间 2010-10-25 19:21:34
显示代码纯文本
program nba(input,output);
var
 a:array[1947..2009]of string;
 n,k,j,g,i,code:longint;
 s,s1,s2:string;
 ch:char;

begin
 assign(input,'nba.in');
 reset(input);
 readln(n);
 for i:=1 to n do
 begin
  readln(s);
  for j:=1 to length(s) do
   if s[j]=' ' then g:=j;
  s1:=copy(s,1,g-1);
  s2:=copy(s,g+1,length(s)-g);
  val(s2,k,code);
  a[k]:=s1;
 end;
 close(input);

 assign(output,'nba.out');
 rewrite(output);
 for i:=1947 to 2009 do
  if a[i]<>'' then writeln(i,' ',a[i]);
 close(output);
end.