比赛 20101116 评测结果 AAAAAAAAAA
题目名称 长路上的灯 最终得分 100
用户昵称 Des. 运行时间 0.000 s
代码语言 Pascal 内存使用 0.00 MiB
提交时间 2010-11-16 09:22:38
显示代码纯文本
program light;
var f:array[0..8000000]of qword;
    t,k,m,n,i,j:longint;
    a,b,p:qword;
    r,s:real;
begin
assign(input,'light.in');
reset(input);
assign(output,'light.out');
rewrite(output);
readln(n);
repeat
  dec(n);
  readln(r,j);
  for t:=1 to j do
    begin
      a:=trunc(r*t);
      b:=a div 32;
      if a mod 32=0 then
        f[b]:=f[b] xor 1
      else f[b]:=f[b]xor(1 shl (a mod 32));
    end;
until n=0;
for t:=0 to 30 do
  p:=p+(1 shl t);
for i:=0 to 8000000 do
  if f[i]<>p then
    for j:=0 to 31 do
      if ((f[i] shr j)and 1)=1 then
        begin
          if j=0 then
            b:=i*32
          else b:=i*32+j;
          writeln(b);
          close(output);
          halt;
        end;
end.