Cod sursa(job #886478)

Utilizator Emma97Miller Emma Emma97 Data 22 februarie 2013 21:26:09
Problema Fractii Scor 10
Compilator c Status done
Runda Arhiva de probleme Marime 0.48 kb
#include <stdio.h>
#include <stdlib.h>




FILE *in,*out;
long r,n,nr;
long cmmdc(long x,long y)
{
    while(y>0)
    {
        r=x%y;
        x=y;
        y=r;
    }
    return x;

}



int main()
{ long i,j;
   in=fopen("fractii.in","rt");
   out=fopen("fractii.out","wt");
   fscanf(in,"%ld",&n);
   for(i=1;i<=n;i++)
     for(j=1;j<=n;j++)
        if(cmmdc(i,j)==1)
        nr++;
   fprintf(out,"%ld",nr);
   fclose(in);
   fclose(out);
   return 0;
}