Cod sursa(job #367580)

Utilizator kyky_papoiPapoi Cecilia kyky_papoi Data 22 noiembrie 2009 19:22:29
Problema Pairs Scor 20
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.62 kb
#include <fstream>
using namespace std;

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

int Cmmdc(int ,int );

int x[10000], n, nr, q;
int main()
{
	fin >> n;
	for ( int i = 0; i < n; ++i )
		fin >> x[i];
	
	for ( int i = 0; i < n-1; ++i )
		for ( int j = i+1; j < n; ++j )
		{
			q = Cmmdc ( x[i], x[j] );
			if ( q == 1 )
				nr++;
		}

	fout << nr<< '\n';
	
	
	fin.close();
	fout.close();
}


int Cmmdc(int a, int b)
{
    if ( b == 0 ) return a;
    int rest;
    do
    {
         rest = a % b;
         a = b;
         b = rest;
    } while ( rest );    

    return a;
}