Cod sursa(job #109279)
Utilizator | Data | 25 noiembrie 2007 09:52:50 | |
---|---|---|---|
Problema | Pairs | Scor | 20 |
Compilator | cpp | Status | done |
Runda | preONI 2008, Runda 1, Clasa a 10-a | Marime | 0.37 kb |
#include<stdio.h>
int a[100001],n,i,j,nr;
int euclid(int a, int b)
{int c;
while (b) {
c = a % b;
a = b;
b = c;
}
return a;}
int main()
{freopen("pairs.in","r",stdin);
freopen("pairs.out","w",stdout);
scanf("%d",&n);
for(i=1;i<=n;i++)
{scanf("%d",&a[i]);
for(j=1;j<i;j++)
if(euclid(a[i],a[j])<2) nr++; }
printf("%d",nr);
return 0;}