Cod sursa(job #200201)
| Utilizator | Data | 22 iulie 2008 18:25:48 | |
|---|---|---|---|
| Problema | Pairs | Scor | 20 |
| Compilator | cpp | Status | done |
| Runda | Arhiva de probleme | Marime | 0.41 kb |
#include<stdio.h>
long prim(long a,long b)
{long r=a%b;
while(r) {a=b;
b=r;
r=a%b;}
return b;
}
int main()
{long n,i,j,v[100001],r=0;
FILE*f=fopen("pairs.in","r");
FILE*g=fopen("pairs.out","w");
fscanf(f,"%ld",&n);
for(i=1;i<=n;i++)
fscanf(f,"%ld",&v[i]);
for(i=1;i<n;i++)
for(j=i+1;j<=n;j++)
if(prim(v[i],v[j])==1) r++;
fprintf(g,"%ld",r);
fcloseall();
return 0;
}