Pagini recente » infoarena - comunitate informatica, concursuri de programare | Cod sursa (job #2389278) | Cod sursa (job #1848032) | Cod sursa (job #2910073) | Cod sursa (job #111557)
Cod sursa(job #111557)
#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,"%ld",&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,"%ld\n",k);
return 0;}