Cod sursa(job #194878)

Utilizator luckyme91wiz kid luckyme91 Data 14 iunie 2008 23:13:19
Problema Pairs Scor 0
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.44 kb
#include <fstream.h>
#include<math.h>
 long n,v[100000];
long prim(int a,int b)
{ int c,d;
 if(a>b) c=a;
 else c=b;

for(d=2;d<=c;d++){if(a%d==0&&b%d==0) {break; }}
if(d>c)return 1;
else return 0;
}
int main()
{ ifstream f("pairs.in");
  ofstream g("pairs.out");
  long  nr=0,i,j;
f>>n;
for (i=1;i<=n;i++) f>>v[i];
f.close();

for (i=1;i<=n-1;i++)
for (j=i+1;j<=n;j++) if(prim (v[i],v[j])==1)nr++;
g<<nr;
g.close();return 0;}