比赛 20101116 评测结果 MMMMMMMMMM
题目名称 长路上的灯 最终得分 0
用户昵称 王者自由 运行时间 0.000 s
代码语言 Pascal 内存使用 0.00 MiB
提交时间 2010-11-16 08:38:46
显示代码纯文本
program light;
var i,n:integer;
  a:extended; j,t,k,max:longint;
  L:array[1..2000000000] of 0..1;
begin
  assign(input,'light.in'); reset(input);
  assign(output,'light.out'); rewrite(output);
  readln(n);
  max:=0;
  for i:=1 to n do
  begin
    readln(a,t);
    for j:=1 to t do
    begin
      k:=trunc(a*j);
      if k>max then max:=k;
      L[k]:=1-L[k];
    end;
  end;
  for i:=1 to max do
    if L[i]=1 then
      begin writeln(i); break; end;
  close(input); close(output);
end.