Cod sursa(job #545888)
Utilizator | Data | 4 martie 2011 08:26:37 | |
---|---|---|---|
Problema | Pairs | Scor | 20 |
Compilator | cpp | Status | done |
Runda | Arhiva de probleme | Marime | 0.38 kb |
#include<fstream.h>
ifstream fin("pairs.in");
ofstream fout("pairs.out");
long n;
long long x[100000];
int cmmdc(long a, long b)
{
if(b<=0)
return a;
else
return cmmdc(b,a%b);
}
int main()
{
int i,j,nr=0;
fin>>n;
for(i=1;i<=n;i++)
fin>>x[i];
for(i=1;i<n;i++)
for(j=i+1;j<=n;j++)
if(cmmdc(x[i],x[j])==1 && x[i]!=x[j])
nr++;
fout<<nr;
return 0;
}