Cod sursa(job #2411)

Utilizator alex_dincaDinca Alexandru-Nicolae - UPB alex_dinca Data 17 decembrie 2006 10:28:20
Problema Fractii Scor 0
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.49 kb
#include <stdio.h>
long int n,i,j,nr;
FILE *f;
void Read()
{f=fopen("fractii.in","r");
 fscanf(f,"%ld",&n);
 fclose(f);
}
int cmmdc(long int i,long int j)
{long int r;
 r=i%j;
 while(r!=0)
      {i=j;
       j=r;
       r=i%j;
      }
 return j;
}
long int Numar()
{for(i=1;i<=n;i++)
     for(j=1;j<=n;j++)
         if(cmmdc(i,j)==1)nr++;
 return nr;
}
void Write()
{f=fopen("fractii.out","w");
 fprintf(f,"%ld",Numar());
 fclose(f);
}
void main()
{Read();
 Write();
}