记录编号 | 240307 | 评测结果 | AAAAAAAAAAA | ||
---|---|---|---|---|---|
题目名称 | [USACO Mar07] 焰火表演 | 最终得分 | 100 | ||
用户昵称 | 南风喃 | 是否通过 | 通过 | ||
代码语言 | Pascal | 运行时间 | 0.283 s | ||
提交时间 | 2016-03-22 17:35:14 | 内存使用 | 19.24 MiB | ||
var c,n,t,i,x,p,l:longint; a:array[1..5000000] of longint; begin assign(input,'fireshow.in'); assign(output,'fireshow.out'); reset(input); rewrite(output); read(c,n); for i:=1 to c do begin read(t); while x<=n do begin x:=x+t; inc(p); a[x]:=a[x]+1; end; x:=0; p:=0; end; for i:=1 to n do if a[i]<>0 then inc(l); writeln(l); end.