Cod sursa(job #109534)
Utilizator | Victor Popescu slayer4u | Data | 25 noiembrie 2007 11:37:41 |
---|---|---|---|
Problema | Pairs | Scor | 20 |
Compilator | cpp | Status | done |
Runda | preONI 2008, Runda 1, Clasa a 10-a | Marime | 0.51 kb |
#include <stdio.h>
int i, j, n, num, x[100100];
int primeintreele(int i, int j)
{
int a = x[i], b = x[j], r;
while (b)
r = a % b, a = b, b = r;
if (a == 1)
return 1;
return 0;
}
int main()
{
freopen ("pairs.in", "rt", stdin);
freopen ("pairs.out", "wt", stdout);
scanf("%ld", &n);
for (i = 1; i <= n; i ++)
scanf("%ld", &x[i]);
for (i = 1; i < n; i ++)
for (j = i + 1; j <= n; j ++)
{
if (primeintreele(i, j))
num ++;
}
printf("%ld\n", num);
return 0;
}