Pagini recente » Cod sursa (job #1898937) | Cod sursa (job #2473699) | Cod sursa (job #3273179) | Cod sursa (job #2599156) | Cod sursa (job #112365)
Cod sursa(job #112365)
#include<stdio.h>
int cmdc(register long long a,register long long b)
{ register long long r;
while(a)
{r=b%a;b=a;a=r;
}
return b;
}
int main()
{
long long v[100001];
register long i,j,n,k=0;
FILE *fi,*fo;
fi=fopen("pairs.in","r");
fo=fopen("pairs.out","w");
fscanf(fi,"%ld",&n);
for(i=0;i<n;i++)fscanf(fi,"%LL",&v[i]);
fclose(fi);
for(i=0;i<n-1;i++)
for(j=i+1;j<n;j++)
if(cmdc(v[i],v[j])==1)k++;
fprintf(fo,"%LL\n",k);
return 0;}