Cod sursa(job #112365)

Utilizator flavius_mesterMester Flavius flavius_mester Data 4 decembrie 2007 20:56:06
Problema Pairs Scor 0
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.52 kb


#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;}