Cod sursa(job #109384)

Utilizator rethosPaicu Alexandru rethos Data 25 noiembrie 2007 10:38:23
Problema Pairs Scor 20
Compilator cpp Status done
Runda preONI 2008, Runda 1, Clasele 11-12 Marime 0.47 kb
#include <fstream.h>
long a[100001],n;
long cmmdc(long x,long y)
{ long r=x%y;
  while (r!=0)
	{ x=y;
	  y=r;
	  r=x%y;
	}
  return y;
}
int main()
{ long i,nr=0,j;
  int nrx=0;
  ifstream f("pairs.in");
  f>>n;
  for (i=1;i<=n;i++)
	f>>a[i];
  f.close();
  for (i=1;i<n;i++)
	for (j=i+1;j<=n;j++)
		if (cmmdc(a[i],a[j])==1)
			{ nr++;
			  if (nr==1000000)
				{ nrx++;nr=0;}
			}
  ofstream g("pairs.out");
  if (nrx!=0) g<<nrx;
  g<<nr;
  return 0;
}