Cod sursa(job #109294)

Utilizator anna_bozianuBozianu Ana anna_bozianu Data 25 noiembrie 2007 10:02:29
Problema Pairs Scor 0
Compilator cpp Status done
Runda preONI 2008, Runda 1, Clasele 11-12 Marime 0.39 kb
#include<stdio.h>
long int n,x[100000],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("tunel.in","r"), *g=fopen("tunel.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;i++) if(cmmdc(x[i],x[j])==1) nr++;
	fprintf(f,"%ld",nr);
	fcloseall();
	return 0;
}