Cod sursa(job #109790)
| Utilizator | Data | 25 noiembrie 2007 12:42:09 | |
|---|---|---|---|
| Problema | Pairs | Scor | 20 |
| Compilator | cpp | Status | done |
| Runda | preONI 2008, Runda 1, Clasa a 10-a | Marime | 0.55 kb |
#include <cstdio>
#define dim 100001
int N;
int A[dim];
int prime(int x, int y)
{
int r;
while(y)
{
r = x % y;
x = y;
y = r;
}
if(x == 1) return 1;
return 0;
}
int main()
{
freopen("pairs.in", "rt", stdin);
freopen("pairs.out", "wt", stdout);
int i, j;
long long r = 0;
for(scanf("%d", &N), i=1; i<=N; ++i)
scanf("%d", A+i);
for(i=1; i<N; ++i)
for(j=i+1; j<=N; ++j)
if(prime(A[i], A[j]))
++ r;
printf("%lld", r);
return 0;
}
