比赛 20101116 评测结果 MMMMMMMMMM
题目名称 长路上的灯 最终得分 0
用户昵称 Achilles 运行时间 0.000 s
代码语言 Pascal 内存使用 0.00 MiB
提交时间 2010-11-16 09:41:19
显示代码纯文本
program light;
var
  i,j,max,n,zt:longint;
  z:real;
  a:array[1..200000000] of real;
  b:array[1..200000000] of boolean;
  t:array[1..200000000] of integer;
begin
  assign(input,'light.in');
  assign(output,'light.out');
  reset(input);
  rewrite(output);
  readln(n);
  for i :=1 to n do
    readln(a[i],t[i]);
  max:=1;
  fillchar(b,sizeof(b),false);
  for i:=1 to n do
  begin
    for j:=1 to t[i] do
    begin
      z:=int(a[i]*j);
      zt:=trunc(z);
      if zt>max then max:=zt;
      b[zt]:=not(b[zt]);
    end;
  end;
  for i:=1 to max do
    if b[i] then begin
      writeln(i);
      break;
    end;
  close(input);
  close(output);
end.