Cod sursa(job #20944)

Utilizator recviemAlexandru Pana recviem Data 22 februarie 2007 17:35:18
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.43 kb
#include <stdio.h>

int euclid(int a,int b)
{
 int c;
  while (b)
   {
    c = a % b;
    a = b;
    b = c;
   }
  return a;
}
int main()
{
  long n,s;
  FILE *f,*g;
  f=fopen("fractii.in","r");
  g=fopen("fractii.out","w");
  fscanf(f,"%li",&n);
  s=2*n-1;
  for (int i=2;i<=n;i++)
   for (int j=i+1;j<=n;j++)
    if (euclid(i,j) == 1) s += 2;
  fprintf(g,"%li",s);
  fclose(g);
  fclose(f);
  return 0;
}