记录编号 20417 评测结果 AAAAAAAAAA
题目名称 NBA总冠军 最终得分 100
用户昵称 Gravatarmaxiem 是否通过 通过
代码语言 Pascal 运行时间 0.002 s
提交时间 2010-10-26 07:52:10 内存使用 0.13 MiB
显示代码纯文本
program nba;
var
  s:string;
  data:array [1947..2009] of string;
  n,i,value,code:longint;
begin
  for i:=1947 to 2009 do data[i]:='';
  assign (input,'nba.in');
  reset (input);
  readln (n);
  for i:=1 to n do begin
    readln (s);
    val (copy(s,length(s)-3,4),value,code);
    data[value]:=copy(s,1,length(s)-4);
  end;
  close (input);
  assign (output,'nba.out');
  rewrite (output);
  for i:=1947 to 2009 do if data[i]<>'' then writeln (i,' ',data[i]);
  close (output);
end.