比赛 20101116 评测结果 AAAAAAWEAA
题目名称 长路上的灯 最终得分 80
用户昵称 sr-end 运行时间 0.000 s
代码语言 Pascal 内存使用 0.00 MiB
提交时间 2010-11-16 10:22:19
显示代码纯文本
  1. program aa;
  2. var
  3. i,j:longint;
  4. f:text;
  5. c:integer;
  6. cr:array[1..5000] of integer;
  7. br:array[1..5000] of real;
  8. ar:array[1..200000] of integer;
  9. function bian(a:real;b:integer):integer;
  10. var
  11. i,j,k:integer;
  12. begin
  13. for i:=1 to b do
  14. begin
  15. k:=trunc(i*a);
  16. if ar[k]=0 then ar[k]:=1 else
  17. ar[k]:=0;
  18. end;
  19. end;
  20. begin
  21. for i:=1 to 200000 do
  22. ar[i]:=0;
  23. assign(f,'light.in');
  24. reset(f);
  25. readln(f,c);
  26. for i:=1 to c do
  27. begin
  28. readln(f,br[i],cr[i]);
  29. bian(br[i],cr[i]);
  30. end;
  31. assign(f,'light.out');
  32. rewrite(f);
  33. for i:=1 to 200000 do
  34. if ar[i]=1 then
  35. begin
  36. write(f,i);
  37. break;
  38. end;
  39. close(f);
  40.  
  41. end.