Cod sursa(job #290360)

Utilizator harababurelPuscas Sergiu harababurel Data 27 martie 2009 20:10:39
Problema Pairs Scor 0
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.57 kb
#include <iostream.h>
#include <fstream.h>
long n, m;
long long v[16000], i, j;
int cmmdc(long long i, long long j) {
	long long a=i;
	long long b=j;
	while(a!=0 && b!=0) {
		if(a>b) { a=a-b; }
		else { b=b-a; }
		}
	if(a==0) { a=1; }
	return a;
	}
int main() {
	long long perechi=0;
	ifstream f; f.open("pairs.in");
	ofstream g; g.open("pairs.out");
	f>>n;
	for(i=1; i<=n; i++) {
		f>>v[i];
		}
	for(i=1; i<n; i++) {
		for(j=i+1; j<=n; j++) {
			if(cmmdc(i,j)==1) {
				perechi++;
				}
			}
		}
	g<<perechi;
	f.close();
	g.close();
	return 0;
	}