Cod sursa(job #2175075)

Utilizator CarmenRo33Anghel Ionela Carmen CarmenRo33 Data 16 martie 2018 15:06:18
Problema Pairs Scor 20
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.58 kb
#include <iostream>
#include <fstream>
using namespace std;

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

int N,A[1000001],x,y,a,b,nr=0;

void read()
{
    fin>>N;
    for(int i=1;i<=N;i++)
    fin>> A[i];
}
int GCD(int A, int B)
{
    if(!B)
        return A;
    return GCD(B, A%B);
}

int main()
{
    read();
    for(int i=1;i<=N;i++)
     {
         for(int j=i+1;j<=N;j++)
          {
              a=x=A[i];
              b=y=A[j];
            if((GCD(a,b) == 1)&&(x!=y))
             nr++;
          }
     }
     fout<<nr;
    return 0;
}