Cod sursa(job #993917)

Utilizator ionutpop118Pop Ioan Cristian ionutpop118 Data 4 septembrie 2013 17:57:22
Problema Pairs Scor 20
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.54 kb
#include <cstdio>
using namespace std;
int v[1000002];
inline int cmmdc(int a,int b)
{
    int r;
    while (b!=0)
    {
        r=a%b;
        a=b;
        b=r;
    }
    return a;
}
int main()
{
    freopen("pairs.in","r",stdin);
    freopen("pairs.out","w",stdout);
    long long i,n,j,s=0;
    scanf("%lld",&n);
    for (i=1;i<=n;i++)
         scanf("%lld",&v[i]);
    for (i=1;i<=n;i++)
        for (j=i+1;j<=n;j++)
            if (v[i]!=v[j]&&cmmdc(v[i],v[j])==1)
                s++;
    printf("%lld",s);
    return 0;
}