Cod sursa(job #139975)

Utilizator Vv3n0MAnton Flavius Valentin Vv3n0M Data 20 februarie 2008 22:44:09
Problema Pairs Scor 20
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.78 kb
#include <fstream.h>
#include <iostream.h>

int main()
{
          fstream f,g;
          long int n,x[100000],i,j,a,b;
          f.open("pairs.in",ios::in);
          f>>n;
          for(i=1;i<=n;i++)
             f>>x[i];
          f.close();
          long int perechi=0;
          for(i=1;i<n;i++)
             for(j=i+1;j<=n;j++)
               {
                 a=x[i];b=x[j];;
                 while(a!=b)
                 {   
                     if(a>b)
                        a=a-b;
                     else
                        b=b-a;
                 }
                 if(a==1)
                    perechi++;
               }
          g.open("pairs.out",ios::out);
          g<<perechi;
          g.close();
          return 0;
}