Pagini recente » Cod sursa (job #2781364) | Cod sursa (job #1993835) | Cod sursa (job #486352) | Cod sursa (job #120626) | Cod sursa (job #289049)
Cod sursa(job #289049)
#include<stdio.h>
#include<math.h>
FILE *f,*g;
long n,i,j,cont=0;long v[10000];
int cmmdc(long a,long b)
{if(a!=b)if(a>b)return cmmdc(a-b,b);
else return cmmdc(a,b-a);
else return a;
}
int main()
{f=fopen("pairs.in","r");
fscanf(f,"%ld",&n);
for (i=1;i<=n;i++)fscanf(f,"%ld",&v[i]);
fclose(f);
for(i=1;i<n;i++)for(j=i+1;j<=n;j++)if(cmmdc(v[i],v[j])==1)cont++;
g=fopen("pairs.out","w");
fprintf(g,"%ld",cont);
fclose(g);
return 1;
}