Cod sursa(job #109229)

Utilizator rethosPaicu Alexandru rethos Data 25 noiembrie 2007 09:23:20
Problema Pairs Scor 20
Compilator cpp Status done
Runda preONI 2008, Runda 1, Clasa a 10-a Marime 0.47 kb
#include <fstream.h>
long a[100001],n;
long cmmdc(long x,long y)
{ while (x!=y)
	{ if (x>y) x=x-y;
	      else y=y-x;
	}
  return x;
}
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;
}