Cod sursa(job #109645)

Utilizator bogdan2412Bogdan-Cristian Tataroiu bogdan2412 Data 25 noiembrie 2007 12:15:01
Problema Pairs Scor 20
Compilator cpp Status done
Runda preONI 2008, Runda 1, Clasele 11-12 Marime 0.5 kb
#include <stdio.h>

#define MAXN 100005
#define MAXV 1000005

int N, x[MAXN];
int count[MAXV];

inline int gcd( int a, int b )
{
	for (; a % b; )
	{
		int c = a % b;
		a = b;
		b = c;
	}
	return b;
}

int main()
{
	freopen("pairs.in", "rt", stdin);
	freopen("pairs.out", "wt", stdout);

	scanf("%d", &N);
	for (int i = 0; i < N; i++)
		scanf("%d", x + i);

	long long NR = 0;
	for (int i = 0; i < N; i++)
		for (int j = i + 1; j < N; j++)
			if (gcd(x[i], x[j]) == 1)
				NR++;
	printf("%lld\n", NR);

	return 0;
}