比赛 普及组2016模拟练习3 评测结果 AAAAAAAAAAA
题目名称 焰火表演 最终得分 100
用户昵称 shallow dream 运行时间 0.108 s
代码语言 Pascal 内存使用 2.07 MiB
提交时间 2016-11-15 19:21:56
显示代码纯文本
program fireshow;
  var f:array[1..2000000] of boolean;
      i,j,k,c,n:longint;
      t:array[1..100] of longint;

  begin
 assign(input,'fireshow.in');reset(input);
 assign(output,'fireshow.out');rewrite(output);

    readln(c,n);
    for i:=1 to c do readln(t[i]);
    fillchar(f,sizeof(f),false);
    for i:=1 to c do
     begin
       k:=t[i];
       while k<=n do
        begin
          if not f[k] then
           begin inc(j); f[k]:=true; end;
          k:=k+t[i];
        end;
     end;
    writeln(j);
 close(input);
 close(output);
  end.