Cod sursa(job #545892)

Utilizator mateiuliIulian mateiuli Data 4 martie 2011 08:31:53
Problema Pairs Scor 20
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.48 kb
#include <iostream.h>
#include <fstream.h>

int n,m[100000];

int cmmdc(int a, int b) {
	int r;
	r = a % b;
        while(r != 0)
        {
           a = b;
           b = r;
           r = a % b;
        }

	return b;
}

int main() {
	ifstream fin("pairs.in");
	fin>>n;
	int nr=0;
	for(int i=1; i<=n; i++) 
		fin>>m[i];
	int i, j;
	for(i=1; i<=n; i++)
		for(j=i+1; j<=n; j++)
			if(cmmdc(m[i], m[j]) == 1)
				nr++;
			ofstream fout("pairs.out");
	fout<<nr;
}