Cod sursa(job #568456)

Utilizator informatician28Andrei Dinu informatician28 Data 31 martie 2011 11:17:45
Problema Pairs Scor 20
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.38 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]; j=i+1; while(j<=n) 
{f>>v[j]; if(v[i]!=v[j] && cmmdc(v[i],v[j])==1) {s+=1;} j++;  } i++;}g<<s;
}