比赛 20101116 评测结果 AAAAAAWEAA
题目名称 长路上的灯 最终得分 80
用户昵称 sr-end 运行时间 0.000 s
代码语言 Pascal 内存使用 0.00 MiB
提交时间 2010-11-16 10:22:19
显示代码纯文本
program aa;
var
i,j:longint;
f:text;
c:integer;
cr:array[1..5000] of integer;
br:array[1..5000] of real;
ar:array[1..200000] of integer;
function  bian(a:real;b:integer):integer;
var
i,j,k:integer;
begin
for i:=1 to b do
begin
k:=trunc(i*a);
if ar[k]=0 then  ar[k]:=1 else
ar[k]:=0;
end;
end;
begin
for i:=1 to 200000 do
ar[i]:=0;
assign(f,'light.in');
reset(f);
readln(f,c);
for i:=1 to c do
begin
 readln(f,br[i],cr[i]);
 bian(br[i],cr[i]);
 end;
 assign(f,'light.out');
 rewrite(f);
 for i:=1 to 200000 do
  if  ar[i]=1 then
  begin
  write(f,i);
 break;
 end;
  close(f);

end.