Pagini recente » Borderou de evaluare (job #1151490) | Cod sursa (job #440402) | Rezultatele filtrării | Borderou de evaluare (job #243012) | Cod sursa (job #274362)
Cod sursa(job #274362)
#include<fstream.h>
int n,nr;
long int v[100001];
ifstream fin("pairs.in");
ofstream fout("pairs.out");
int gcd(int a, int b)
{
if (!b) return a;
return gcd(b, a % b);
}
int main()
{
int i,j;
fin>>n;
for(i=1;i<=n;i++)
fin>>v[i];
for(i=1;i<=n;i++)
for(j=i;j<=n;j++)
if(gcd(v[i],v[j])==1)
nr++;
fout<<nr<<"\n";
return 0;
}