Cod sursa(job #109318)

Utilizator RobytzzaIonescu Robert Marius Robytzza Data 25 noiembrie 2007 10:10:46
Problema Pairs Scor 20
Compilator cpp Status done
Runda preONI 2008, Runda 1, Clasa a 10-a Marime 0.48 kb
#include <fstream.h>
long a[100002],n,nr=0;
long cmmdc(long a,long b){
if (b==0)
   return a;
return cmmdc(b,a%b);
}

void citire(){
ifstream fin("pairs.in");
fin>>n;
for (int i=0;i<n;i++)
   fin>>a[i];
fin.close();
}

long long numarare(){
long long max=0;
for (long i=0;i<n;i++)
  for (long j=i+1;j<n;j++)
     if (cmmdc(a[i],a[j])==1)
	max++;
return max;
}

int main(){
citire();
ofstream fout("pairs.out");
fout<<numarare()<<"\n";
fout.close();
return 0;
}