Cod sursa(job #289049)

Utilizator elevulxxxsava virginiea elevulxxx Data 26 martie 2009 12:41:53
Problema Pairs Scor 0
Compilator cpp Status done
Runda aa Marime 0.45 kb
#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;
}