Cod sursa(job #241617)

Utilizator adytzu2007Adrian Bacircea adytzu2007 Data 10 ianuarie 2009 15:12:51
Problema Fractii Scor 0
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.37 kb
#include <stdio.h>
long n;
FILE *f=fopen("fractii.in","r"),
     *g=fopen("fractii.out","w");
long euclid (long a, long b)
{
  if (b==0) return a;
  else euclid (b,a%b);
}

int main()
{
  long i,j,nr;
  fscanf(f,"%ld",&n);
  for (i=1;i<=n;i++)
  for (j=1;j<=n;j++)
  if (euclid(i,j)==1) nr++;
  fprintf(g,"%ld",nr);
  fclose(f);
  fclose(g);
  return 0;
}