Cod sursa(job #145116)

Utilizator p1ccolinoAlexandru Vlad p1ccolino Data 28 februarie 2008 14:07:16
Problema Pairs Scor 0
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.34 kb
Raporteaza aceasta sursa 
#include<fstream.h>
long n,m[100001];

long prim(long x,long y)
{long r;
while(y){r=x%y;r=x;x=y;}
return x;
}
int main()
{ifstream f("pairs.in");
int i,j,nr=0;
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;j<n+1;j=j+1)
if(prim(m[i],m[j])==1) nr++;
g<<nr;
g.close();
return 0;}