Cod sursa(job #145399)

Utilizator flo3murgociMocanu Florin flo3murgoci Data 28 februarie 2008 19:38:30
Problema Pairs Scor 0
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.35 kb
Raporteaza aceasta sursa 
#include<fstream.h>
long cmmdc(long x,long y)
 {while(x!=y)
  if(x>y)
   x=x-y;
    else
   y=y-x;
  return x; }
void main()
{long v[10000],n,i,k=0,j;
ifstream f("pairs.in");
ofstream g("pairs.out");
f>>n;

for(i=1;i<=n;i++)
 f>>v[i];
for(i=1;i<=n-1;i++)
 for(j=i+1;j<=n;j++)
  if(cmmdc(v[i],v[j])==1)
   k++;
g<<k;
f.close();
g.close();
}