Cod sursa(job #251917)

Utilizator alexamiu2008Miu Alexandra alexamiu2008 Data 3 februarie 2009 17:01: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,x,y,r;
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;}
  if(p%q==0||q%p==0){ok=0;}
  else{
    x=p;y=q;
      r=x%y;
      while(r!=0){x=y;y=r;r=x%y;}
	  if(y!=1){ok=0;}
       }

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

}

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