Description
Solution
很明显的一道题,只要仔细想想就能发现:某两个数所能构成的最小数是他们的最大公因数。当然,所求出的公因数也可以和其他数求最大公因数,那就相当于对所有数都一起求出最大公因数。为什么要求出最大公因数呢?因为求出了最小的可组成的数时,就能够一点点减掉,能减到零的数必然是这个公因数的倍数。
Code
var
a,b:array[0..100000] of longint;
n,m,i,j,ans,tot:longint;
num:int64;
function gcd(x,y:int64):int64;
begin
while x mod y<>0 do
begin
gcd:=x mod y;
x:=y;y:=gcd;
end;
exit(y);
end;
begin
readln(n);
for i:=1 to n do read(a[i]);
num:=a[1];
for i:=2 to n do
begin
num:=gcd(num,a[i]);
end;
readln(m);
for i:=1 to m do
begin
read(b[i]);
if b[i] mod num=0 then inc(ans);
end;
writeln(ans);
end.