Cod sursa(job #2102966)

Utilizator MarutBrabete Marius Stelian Marut Data 9 ianuarie 2018 17:43:43
Problema Pairs Scor 20
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.51 kb
#include<cstdio>
using namespace std;
int v[100005];
int cmmdc(int a, int b)
{
    int r;
    r=a%b;
    while(r)
    {
        a=b;
        b=r;
        r=a%b;
    }
    return b;
}
int main()
{
    freopen("pairs.in","r",stdin);
    freopen("pairs.out","w",stdout);
    int n,i,j,cnt=0;
    scanf("%d",&n);
    for(i=1;i<=n;i++)
        scanf("%d",&v[i]);
    for(i=1;i<=n;i++)
        for(j=i+1;j<=n;j++)
            if(i!=j&&cmmdc(v[i],v[j])==1) cnt++;
    printf("%d",cnt);
    return 0;
}