Cod sursa(job #443527)

Utilizator wamfeverDobos Ionut wamfever Data 17 aprilie 2010 12:39:19
Problema Pairs Scor 20
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.52 kb
#include<fstream>
using namespace std;
ifstream fin("pairs.in");
ofstream fout("pairs.out");
int n, v[100000], i, j, num;

int cmmdc(int a, int b)
{
    int c;
    while(b)
    {
            c=a%b;
            a=b;
            b=c;
            }
    return a;
}

int main()
{
    fin>>n;num=0;
    for(i=1;i<=n;i++)fin>>v[i];    
    for(i=1;i<n;i++)
    for(j=i+1;j<=n;j++) if( cmmdc(v[i], v[j]) == 1 )num++;
    fout<<num;
    fin.close();
    fout.close();
    return 0;
}