比赛 20101116 评测结果 AAAAAAAAAA
题目名称 长路上的灯 最终得分 100
用户昵称 magic 运行时间 0.000 s
代码语言 Pascal 内存使用 0.00 MiB
提交时间 2010-11-16 10:47:55
显示代码纯文本
program gls;
var
n,b,i,j,w:longint;tail:int64;
ss:array[1..20000000]of shortint;
a:real;
f,g:text;

begin
   assign(f,'light.in');
   reset(f);
   assign(g,'light.out');
   rewrite(g);
   readln(f,n);
   fillchar(ss,sizeof(ss),0);
   for i:=1 to n do
   begin readln(f,a,b);
     for j:=1 to b do
      begin
        if tail<trunc(j*a) then tail:=trunc(j*a);
        if ss[trunc(j*a)]=1 then dec(ss[trunc(j*a)])
        else inc(ss[trunc(j*a)]);
      end;
   end;
  for i:=1 to tail do
  begin if ss[i]=1 then writeln(g,i);
  end;












close(f);close(g);
end.