Cod sursa(job #2024816)

Utilizator HaesteinnSabau Florin Vlad Haesteinn Data 21 septembrie 2017 11:29:04
Problema Pairs Scor 20
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.53 kb
#include <fstream>

using namespace std;

ifstream fin("pairs.in");
ofstream fout("pairs.out");
int cmmdc(int x, int y)
{ while(x!=y)
if(x>y)
x=x-y;
else y=y-x;
return x;
}
int main()
{
    int m,nr=0,v[10000];
    fin>>m;
    for(int i=0;i<m;i++)
        fin>>v[i];
    for(int i=0;i<m;i++)
    {
        for(int j=0;j<m && j!=i;j++)
        {
            if(j!=i)
            {
                if(cmmdc(v[i],v[j])==1)
                    nr++;
            }
        }
    }
    fout<<nr;
    return 0;
}