Cod sursa(job #1190465)

Utilizator acomAndrei Comaneci acom Data 25 mai 2014 13:32:07
Problema Pairs Scor 20
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.49 kb
#include<cstdio>
using namespace std;
int n,a[100005];
long long sol;
inline int cmmdc(int A, int B)
{
    int R;
    while (B)
        R=A%B, A=B, B=R;
    return A;
}
int main()
{
    int i,j;
    freopen("pairs.in","r",stdin);
    freopen("pairs.out","w",stdout);
    scanf("%d",&n);
    for (i=1;i<=n;++i)
    {
        scanf("%d",&a[i]);
        for (j=1;j<i;++j)
            if (cmmdc(a[i],a[j])==1)
                ++sol;
    }
    printf("%lld\n",sol);
    return 0;
}