Cod sursa(job #109704)

Utilizator Adriana_SAdriana Sperlea Adriana_S Data 25 noiembrie 2007 12:30:01
Problema Pairs Scor 0
Compilator cpp Status done
Runda preONI 2008, Runda 1, Clasa a 10-a Marime 0.59 kb
#include <stdio.h>

const int N_MAX = 100010;

int v[N_MAX];

int MAX;

int prim(int a, int b)
{
	if (a % 2 == 0 && b % 2 == 0) return 0;

	for (int i = 3; i <= a / 2 && i <= b / 2; i ++) {
		if (a % i == 0 && b % i == 0) return 0;
	}

	return 1;
}

int main()
{
	freopen("pairs.in", "r", stdin);
#ifndef _SCREEN_
	freopen("pairs.out", "w", stdout);
#endif

	int N;
	scanf("%d\n", &N);

	int i, j;
	for (i = 1; i <= N; i ++) {
		scanf("%d ", &v[i]);
	}

	int rez = 0;
	for (i = 1; i < N; i ++) {
		for (j = i + 1; j <= N; j ++) {
			if (prim(v[i], v[j])) rez ++;
		}
	}

	printf("%d\n", rez);

	return 0;
}