比赛 20101118 评测结果 AAATTTTTTT
题目名称 最终得分 30
用户昵称 wo shi 刘畅 运行时间 0.000 s
代码语言 Pascal 内存使用 0.00 MiB
提交时间 2010-11-18 10:16:59
显示代码纯文本
var
  n,i,x,y,total:longint;
  a:array[0..50]of longint;

function yes(k:longint):boolean;
var
  i:longint;
begin
  if k mod 8<>0 then exit(false);
  for i:=1 to n do
  if k mod a[i]=0 then exit(false);
  exit(true);
end;

begin
  assign(input,'eight.in'); reset(input);
  assign(output,'eight.out'); rewrite(output);
  readln(n);
  for i:=1 to n do read(a[i]);
  readln(x,y);
  for i:=x to y do
  if yes(i) then inc(total);
  writeln(total);
  close(input);
  close(output);
end.