Cod sursa(job #568440)

Utilizator informatician28Andrei Dinu informatician28 Data 31 martie 2011 10:53:47
Problema Pairs Scor 20
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.39 kb
#include<fstream> 
using namespace std; 
ifstream f("pairs.in"); 
ofstream g("pairs.out");
int cmmdc(int a,int b) 
{if(a==b) return a; 
else if(a>b) return cmmdc(a-b,b); 
else return cmmdc(a,b-a); 
}
int main() 
{long long v[100000],n,s=0; 
int i,j;
f>>n;
i=1; while(i<=n) 
	{f>>v[i];
		for(j=i+1;j<=n;j++) 
	{f>>v[j]; if(v[i]!=v[j] && cmmdc(v[i],v[j])==1) {s++;} }
	i++;}
	g<<s;
}