Cod sursa(job #251097)

Utilizator alexamiu2008Miu Alexandra alexamiu2008 Data 1 februarie 2009 21:08:22
Problema Fractii Scor 0
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.54 kb
#include<stdio.h>
FILE*fin,*fout;
long int p,q,nr,n,ok,d;
int main(){

fin=fopen("fractii.in","r");
fscanf(fin,"%ld",&n);
fclose(fin);  nr=0;
fout=fopen("fractii.out","w");
for(p=1;p<=n;p++){
            for(q=1;q<=n;q++){
  if(q==1&&p==1){nr=1;}
  ok=1;
  if(q!=1||p!=1){
  if(q==p){ok=0;}
  else{
  for(d=2;d<=q/2;d++){if(q%d==0){if(p%d==0){ok=0;}}}
       for(d=2;d<=p/2;d++){if(p%d==0){if(q%d==0){ok=0;}}}

       }

  if(ok==1){nr++;}
  }
                    }

}

fprintf(fout,"%ld",nr);
fclose(fout);
return 0;
}