Cod sursa(job #1882414)

Utilizator valivalica99ThisNameIsPerfect valivalica99 Data 17 februarie 2017 10:34:06
Problema Pairs Scor 20
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.54 kb
#include <iostream>
#include <fstream>
using namespace std;
int n,v[100000],a,b,nr;
int main()
{
    ifstream f("pairs.in");
    ofstream g("pairs.out");
    f>>n;
    for (int i=1;i<=n;i++)
    {
        f>>v[i];
    }
    for (int i=1;i<=n-1;i++)
    {
        for (int j=i+1;j<=n;j++)
        {
            a=v[i];
            b=v[j];
            while (a!=b)
            {
                if (a>b) a=a-b;
                else b=b-a;
            }
            if (a==1) nr++;
        }
    }
    g<<nr;
    return 0;
}