Cod sursa(job #128453)

Utilizator BrEacKRazvan Aurariu BrEacK Data 27 ianuarie 2008 11:28:00
Problema Pairs Scor 0
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.4 kb
#include<iostream.h>
#include<fstream.h>
int cmmmdc(int a, int b)
{
  while(a!=b)
   if(a>b)
     a-=b;
     else b-=a;

     return (a*b);
}
main()
{
int n=0,nr=0;
int v[100];
ifstream f("pairs.in");
f>>n;
for(int i=0;i<n;i++)
 {
  f>>v[i];
  for(int j=0;j<i;j++)
   {
    if(cmmmdc(v[i],v[j])==1) nr++;
   }

 }
ofstream g("pairs.out");
g<<nr;
g.close();
f.close();
return 0;
}