Cod sursa(job #157084)
| Utilizator | Data | 12 martie 2008 20:55:58 | |
|---|---|---|---|
| Problema | Pairs | Scor | 20 |
| Compilator | cpp | Status | done |
| Runda | Arhiva de probleme | Marime | 0.6 kb |
#include<stdio.h>
#define M 100000
long v[M];
int main()
{long n,i,j,k,a,b,r;
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]);
k=0;
for(i=1;i<=n-1;i++)
if(v[i]==2) {for(j=i+1;j<=n;j++)
if(v[j]%2==1) k++;}
else {for(j=i+1;j<=n;j++)
if(v[j]!=2) {a=v[i];
b=v[j];
r=a%b;
while(r!=0)
{a=b;
b=r;
r=a%b;
}
if(b==1) k++;
}
}
fprintf(g,"%ld",k);
fprintf(g,"\n");
fclose(f);
fclose(g);
return 0;
}
