Cod sursa(job #130399)

Utilizator lilskipGrigore Alexandru lilskip Data 1 februarie 2008 08:28:21
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.42 kb
#include <stdio.h>



FILE *f, *g;
unsigned int p, n, k ,i,j;

int cmmdc(int a, int b)
  {
     while(a!=b)
         if(a>b) a=a-b;
            else b=b-a;
     if(a==1) return 0;
     return 1;
  }

int main()
{
  f=fopen("fractii.in","r");
  g=fopen("fractii.out","w");
  fscanf(f,"%ld",&n);
  for(i=1; i<=n; i++)
      for(j=1; j<=n; j++)
         if(cmmdc(i,j)==0) k++;
 fprintf(g,"%ld",k);
 return 0;
}