Cod sursa(job #68064)

Utilizator Astrid28Ruxandra Cohal Astrid28 Data 26 iunie 2007 13:08:09
Problema Fractii Scor 10
Compilator c Status done
Runda Arhiva de probleme Marime 0.5 kb
#include<stdio.h>
FILE *fin,*fout;
long n,s,i,j;


long cmmdc(long a,long b)
  {
    do{ if (a>b) a=a-b;
	  else b=b-a;
      }while (a!=b);
    return a;

  }


void main()
{
  fin=fopen("fractii.in","r");
  fout=fopen("fractii.out","w");
  fscanf(fin,"%ld",&n);
  s=2*n-1;
  for (i=2;i<n;i++)
    { j=i+1;
      while (j<=n)
	{  if (i%j!=0 && j%i!=0 && !(i%2==0&&j%2==0))
	    if (cmmdc(i,j)==1) s+=2;
	   j++;
	}
    }
  fprintf(fout,"%ld",s);
  fclose(fin);
  fclose(fout);

}