Cod sursa(job #109487)

Utilizator diana_sandrudienutza sandru diana_sandru Data 25 noiembrie 2007 11:22:30
Problema Pairs Scor 20
Compilator cpp Status done
Runda preONI 2008, Runda 1, Clasa a 10-a Marime 0.33 kb
Raporteaza aceasta sursa 
#include<fstream.h>
ifstream f("pairs.in");
ofstream g("pairs.out");
long n,i,j,nr=0,v[10001];
long gcd(long a, long b)
{
if(b==0)
return a;
else
return gcd(b, a%b);
}
int main()
{
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(gcd(v[i],v[j])==1)
nr++;
g<<nr<<'\n';
return 0;
}