Nu aveti permisiuni pentru a descarca fisierul grader_test13.in
Cod sursa(job #109230)
Utilizator | Data | 25 noiembrie 2007 09:23:20 | |
---|---|---|---|
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)
{ 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;
}