Cod sursa(job #109248)

Utilizator radamiRadu Patulescu radami Data 25 noiembrie 2007 09:37:13
Problema Pairs Scor 0
Compilator cpp Status done
Runda preONI 2008, Runda 1, Clasele 11-12 Marime 0.54 kb
#include <stdio.h>

int n,v[100001],k;
int r;

int euclid (int a,int b)
{
	if (b > 0)
		return 0 + euclid (b,a%b);
	else
		return a;
		
	}

int prim(int a,int b)
{
	r = euclid (a,b);
	if (r == 1)
		return 1;
	else
		return 0;
	
	
}

int main ()
{
	int i,j;
	freopen("pairs.in","r",stdin);
	scanf("%d",&n);
	for (i = 1;i <= n; ++i)
		scanf("%d",&v[i]);
	
	for (i = 1;i < n; ++i)
		for (j = i+1; j <= n; ++j)
			if (prim(v[i],v[j]))
				k++;
	freopen("pairs.out","w"stdout);
	printf("%d",k);
	
	
	return 0;
}