记录编号 21948 评测结果 AAAAAAAAAA
题目名称 长路上的灯 最终得分 100
用户昵称 Gravatarybh 是否通过 通过
代码语言 Pascal 运行时间 0.620 s
提交时间 2010-11-16 11:47:23 内存使用 19.18 MiB
显示代码纯文本
{灯
 哈希表
 Author: yangbohua
 Time: 2010-11-16 09:09}

program light;
var
  f:array[0..20000000] of boolean;
  n,i,j,p,t:longint;
  a,q:double;
begin
  assign(input,'light.in');
  reset(input);
  assign(output,'light.out');
  rewrite(output);
  readln(n);
  fillchar(f,sizeof(f),false);
  for i:=1 to n do
  begin
    readln(a,t);
    q:=0;
    for j:=1 to t do
    begin
      q:=q+a;
      p:=trunc(q);
      if f[p]
        then f[p]:=false
        else f[p]:=true;
    end;
  end;
  i:=1;
  while f[i]=false do
    inc(i);
  writeln(i);
  close(input);
  close(output);
end.