记录编号 240307 评测结果 AAAAAAAAAAA
题目名称 [USACO Mar07] 焰火表演 最终得分 100
用户昵称 Gravatar南风喃 是否通过 通过
代码语言 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.