Cod sursa(job #153362)

Utilizator jeanFMI - Petcu Ion Cristian jean Data 10 martie 2008 14:36:20
Problema Pairs Scor 20
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.32 kb
Raporteaza aceasta sursa 
#include<fstream.h>
int r,a,j,b,p=0,v[100000],n,i;
int main()
{
ifstream f("pairs.in");
ofstream g("pairs.out");
f>>n;
for(i=1;i<=n;i++)
 f>>v[i];
for(i=1;i<n;i++)
 for(j=i+1;j<=n;j++)
  {a=v[i];b=v[j];
   while(b)
    {r=a%b;
     a=b; b=r;}
    if (a==1) p++;
   }
g<<p;
f.close();
g.close();
return 0;
}