Cod sursa(job #251895)
| Utilizator | Data | 3 februarie 2009 16:10:59 | |
|---|---|---|---|
| Problema | Pairs | Scor | 20 |
| Compilator | cpp | Status | done |
| Runda | Arhiva de probleme | Marime | 0.48 kb |
#include<stdio.h>
FILE*fin,*fout;
long int n,v[100000],i,j,ok,nr,d,a,b,r;
int main(){
fin=fopen("pairs.in","r");
fout=fopen("pairs.out","w");
fscanf(fin,"%ld\n",&n);
for(i=0;i<n;i++){fscanf(fin,"%ld\n",&v[i]);}
nr=0;
for(i=0;i<n;i++){
for(j=i+1;j<n;j++){
if(v[i]!=v[j]){ok=1;
a=v[i];b=v[j];
r=a%b;
while(r!=0){a=b;b=r;r=a%b;}
if(b==1){nr++;}
}
}
}
fprintf(fout,"%ld",nr);
fclose(fin);
fclose(fout);
return 0;
}