记录编号 21952 评测结果 AAAAAAAAAA
题目名称 长路上的灯 最终得分 100
用户昵称 Gravatarmagic 是否通过 通过
代码语言 Pascal 运行时间 0.799 s
提交时间 2010-11-16 11:50:00 内存使用 19.18 MiB
显示代码纯文本
  1. program gls;
  2. var
  3. n,b,i,j,w:longint;tail:int64;
  4. ss:array[1..20000000]of shortint;
  5. a:real;
  6. f,g:text;
  7.  
  8. begin
  9. assign(f,'light.in');
  10. reset(f);
  11. assign(g,'light.out');
  12. rewrite(g);
  13. readln(f,n);
  14. fillchar(ss,sizeof(ss),0);
  15. for i:=1 to n do
  16. begin readln(f,a,b);
  17. for j:=1 to b do
  18. begin
  19. if tail<trunc(j*a) then tail:=trunc(j*a);
  20. if ss[trunc(j*a)]=1 then dec(ss[trunc(j*a)])
  21. else inc(ss[trunc(j*a)]);
  22. end;
  23. end;
  24. for i:=1 to tail do
  25. begin if ss[i]=1 then writeln(g,i);
  26. end;
  27.  
  28.  
  29. close(f);close(g);
  30. end.