Cod sursa(job #155935)

Utilizator iamdoruTanase Theodor iamdoru Data 12 martie 2008 11:39:28
Problema Fractii Scor 0
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.45 kb
#include <stdio.h>   
FILE *f,*g;   
long cp,cq,p,q,n,contor=0;   
int main() {   
f=fopen("fractii.in" , "r");   
g=fopen("fractii.out" , "w");   
fscanf(f, "%ld" , &n);   
fclose(f);   
for(p=1;p<n;p++)    
        for(q=p+1;q<=n;q++){ cp=p; cq=q;   
            while(cp!=cq)if(cp>cq) cp=cp-cq;   
                            else cq=cq-cp;   
            if(cp==1) contor++; }   
fprintf(g, "%ld", contor);
fclose(g);   
return(0);   
}