Pagini recente » Cod sursa (job #3289618) | Cod sursa (job #2181268) | Cod sursa (job #1828134) | Cod sursa (job #1753758) | Cod sursa (job #109433)
Cod sursa(job #109433)
#include<stdio.h>
long int n,x[1000],i,nr,j;
long int cmmdc(long int a, long int b)
{ if(!b) return a;
return cmmdc(b,a%b);
}
int main()
{ FILE *f=fopen("pairs.in","r"), *g=fopen("pairs.out","w");
fscanf(f,"%ld",&n);
for(i=1;i<=n;i++) fscanf(f,"%ld",&x[i]);
for(i=1;i<n;i++)
for(j=i+1;j<=n;j++) if(cmmdc(x[i],x[j])==1) nr++;
fprintf(g,"%ld",nr);
fcloseall();
return 0;
}