记录编号 21976 评测结果 AAAAAAAAAA
题目名称 长路上的灯 最终得分 100
用户昵称 Gravataritachi 是否通过 通过
代码语言 Pascal 运行时间 0.288 s
提交时间 2010-11-16 14:05:37 内存使用 2.02 MiB
显示代码纯文本
 program t1(input,output);
 var
 n:integer;
 a:double;
 t,k:int64;   max,i,j:longint;
 data:array[1..2000000]of byte;
 begin
 assign(input,'light.in');
 assign(output,'light.out');
 reset(input);
 rewrite(output);
 readln(n);  max:=0;
 fillchar(data,sizeof(data),0);
 for i:= 1 to n do
  begin
  readln(a,t);
   for j:= 1 to t do
    begin
    k:=trunc(a*j);
    data[k]:= (data[k]+1) mod 2 ;
    if k > max then max:=k;
    end;
  end;
  close(input);
 for i:= 1 to max do
 if data[i]=1 then
  begin
  writeln(i);

  break;
  end;
  close(output);
  end.