记录编号 |
21952 |
评测结果 |
AAAAAAAAAA |
题目名称 |
长路上的灯 |
最终得分 |
100 |
用户昵称 |
magic |
是否通过 |
通过 |
代码语言 |
Pascal |
运行时间 |
0.799 s |
提交时间 |
2010-11-16 11:50:00 |
内存使用 |
19.18 MiB |
显示代码纯文本
- program gls;
- var
- n,b,i,j,w:longint;tail:int64;
- ss:array[1..20000000]of shortint;
- a:real;
- f,g:text;
-
- begin
- assign(f,'light.in');
- reset(f);
- assign(g,'light.out');
- rewrite(g);
- readln(f,n);
- fillchar(ss,sizeof(ss),0);
- for i:=1 to n do
- begin readln(f,a,b);
- for j:=1 to b do
- begin
- if tail<trunc(j*a) then tail:=trunc(j*a);
- if ss[trunc(j*a)]=1 then dec(ss[trunc(j*a)])
- else inc(ss[trunc(j*a)]);
- end;
- end;
- for i:=1 to tail do
- begin if ss[i]=1 then writeln(g,i);
- end;
-
-
- close(f);close(g);
- end.