Cod sursa(job #110706)
Utilizator | Data | 27 noiembrie 2007 15:41:57 | |
---|---|---|---|
Problema | Pairs | Scor | 20 |
Compilator | cpp | Status | done |
Runda | Arhiva de probleme | Marime | 0.54 kb |
//pairs
#include<fstream.h>
/*int cmmdc(int x, int y)
{while(x!=y)
{if(x>y) if(x%y) x%=y;
else x=y;
else if(y%x) y%=x;
else y=x;
}
return x;}
*/
int main()
{long int n, m[100001],i,j,nr=0,x,y;
ifstream f("pairs.in");
ofstream g("pairs.out");
f>>n;
for(i=1;i<=n;i++)
f>>m[i];
for(i=1;i<n;i++)
for(j=i+1;j<=n;j++)
{x=m[i]; y=m[j];
while(x!=y)
{if(x>y) if(x%y) x%=y;
else x=y;
else if(y%x) y%=x;
else y=x;
}
if(x==1) nr++;}
g<<nr<<'\n';
f.close();
g.close();
return 0;
}