Cod sursa(job #418793)

Utilizator perticas_catalinperticas catalin perticas_catalin Data 16 martie 2010 14:02:34
Problema Pairs Scor 20
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.55 kb
#include<iostream>
#include<string>

using namespace std;

#define NM 100005

int A[NM];

int cmmdc(int a,int b)
{
    if(!b) return a;
    return cmmdc(b,a%b);
}

int main()
{
    int N;
    
    freopen("pairs.in","r",stdin);
    freopen("pairs.out","w",stdout);
    
    scanf("%d",&N);
    
    for(int i=1;i<=N;++i)
        scanf("%d",&A[i]);    
    
    int ans=0;
    
    for(int i=1;i<N;++i)
       for(int j=i+1;j<=N;++j)
          if(cmmdc(A[i],A[j])==1) ++ans;
    
    printf("%d",ans);      
    
    return 0;
}