【NOIP2017GDKOI】a

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.