Cod sursa(job #918028)

Utilizator brainiac24Octavian Movilianu brainiac24 Data 18 martie 2013 16:10:28
Problema Pairs Scor 20
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.59 kb
#include <iostream>
#include <fstream>
using namespace std;

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

int main()
{
    ifstream fin ("pairs.in");
    ofstream fout ("pairs.out");

    int n, i, j, x, nr=0; fin>>n;
    int m[100002];

    for(i=1; i<=n; i++)
    {
        fin>>x;
        for(j=1; j<i; j++)
            if(euclid(m[j],x)==1) nr++;
            else if (m[j]==x)
                    {
                        i--;
                        break;
                    }
        m[i]=x;
    }

    fout<<nr;
    return 0;
}