Cod sursa(job #5315)
Utilizator | Data | 11 ianuarie 2007 19:50:24 | |
---|---|---|---|
Problema | Fractii | Scor | 10 |
Compilator | c | Status | done |
Runda | Arhiva de probleme | Marime | 0.47 kb |
#include <stdio.h>
FILE *f,*g;
long n;
long kk;
void cacat(long i);
main(){
f=fopen("fractii.in","r");
g=fopen("fractii.out","w");
fscanf(f,"%d",&n);
cacat(1);
fprintf(g,"%d",kk);
fclose(g);
return 0;
}
long cmmdc(long i, long j){
while(j){
long r;
r=i%j;
i=j;
j=r;
}
return i;
}
void cacat(long i){
if(i<=n){
long j=1;
for(;j<=n;++j){
if(cmmdc(i,j)==1){
++kk;
}
}
cacat(i+1);
}
}