比赛 普及组2016模拟练习3 评测结果 AAAAAAAAAAA
题目名称 焰火表演 最终得分 100
用户昵称 Ten.X 运行时间 0.127 s
代码语言 Pascal 内存使用 2.07 MiB
提交时间 2016-11-15 21:27:25
显示代码纯文本
var x,j,c,n,i,ans:longint;f:array[0..2000000]of boolean;
begin
assign(input,'fireshow.in');reset(input);
assign(output,'fireshow.out');rewrite(output);
fillchar(f,sizeof(f),false);
f[0]:=true;
read(c,n);
for i:=1 to c do
begin
read(x);
j:=1;
while j*x<=n do
begin
f[j*x]:=true;
inc(j);
end;
end;
ans:=0;
for i:=1 to n do
if f[i]
then inc(ans);
write(ans);
close(input);close(output);
end.