Cod sursa(job #250270)

Utilizator alexamiu2008Miu Alexandra alexamiu2008 Data 30 ianuarie 2009 14:56:56
Problema Pairs Scor 0
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.5 kb
#include<stdio.h>
FILE*fin,*fout;
long int n,v[10000],i,j,ok,nr,d;
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;
   for(d=2;d<=v[j]/2;d++){
   if(v[i]%d==0&&v[j]%d==0){ok=0;break;}
                          }
   if(ok==1){nr++;}
  }   

  }


}


   fprintf(fout,"%ld",nr);
   fclose(fin);
   fclose(fout);


return 0;
}