比赛 20101116 评测结果 AAAAAAAAAA
题目名称 长路上的灯 最终得分 100
用户昵称 苏轼 运行时间 0.000 s
代码语言 Pascal 内存使用 0.00 MiB
提交时间 2010-11-16 08:46:19
显示代码纯文本
program light(input,output);

const
  maxl=2000010;

var
  a:double;
  n,t,i,j,tr:longint;
  boo:array[1..maxl]of boolean;

begin
  assign(input,'light.in');
  reset(input);
  assign(output,'light.out');
  rewrite(output);

  readln(n);
  for i:=1 to n do
  begin
    readln(a,t);

    for j:=1 to t do
    begin
      tr:=trunc(a*j);

      if tr>maxl then
        break;

      boo[tr]:=not boo[tr];
    end;
  end;

  for i:=1 to maxl do
    if boo[i] then
    begin
      writeln(i);
      break;
    end;

  close(input);
  close(output);
end.