Cod sursa(job #209655)

Utilizator oleg_9370Muk BurunduK oleg_9370 Data 23 septembrie 2008 20:16:19
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 1.12 kb
#include <iostream>
#include <stdio.h>

int main()
{
    FILE *f;
    long p,q,n,d,r,m,a,b;
    bool t;
    
f=fopen("fractii.in","r");
fscanf(f,"%ld",&n);
fclose(f);

r=0;
for(p=1;p<=n;p++){
    for(q=1;q<=n;q++){
                      if((p!=q)&&((p!=1)||(q!=1))){
                       t=false;
                       if(p!=q){t=true;
                       if((q>p)&&(q%p==0)&&(p!=1))t=false;
                       if((p>q)&&(p%q==0)&&(q!=1))t=false; 
                       }
                       if(t){
                      a=q;b=p;
                      while(b!=0){  
                      m=a%b;  
                      a=b;  
                      b=m;  
                      } 
                      d=a;
                      t=false;
                      if((d!=p)&&(d!=q))r++,t=true;
                      if((d==1)&&((p==1)||(q==1)))r++,t=true;
                      if((d!=1)&&(p%d==0)&&(q%d==0)&&(t))r--;
                      }
                      }
                      }
                }
r++;
f=fopen("fractii.out","w");
fprintf(f,"%ld",r);
fclose(f);

return(0);
}