Cod sursa(job #145124)
| Utilizator |  Alexandru Vlad p1ccolino |
Data | 28 februarie 2008 14:31:04 |
|---|---|---|---|
| Problema | Pairs | Scor | 20 |
| Compilator | cpp | Status | done |
| Runda | Arhiva de probleme | Marime | 0.3 kb |
#include<fstream.h>
long n,m[100001];
int main()
{ifstream f("pairs.in");
long i,j,nr=0,r=0,t,y;
f>>n;for(i=1;i<n+1;i=i+1)f>>m[i];
f.close();
ofstream g("pairs.out");
for(i=1;i<n;i=i+1)
for(j=i+1;j<n+1;j=j+1)
{t=m[i];y=m[j];while(y){r=t%y;t=y;y=r;}
if(t==1) nr++;
}
g<<nr;
g.close();
return 0;}