Cod sursa(job #206649)

Utilizator albuaAlbu Alexandru albua Data 8 septembrie 2008 12:56:06
Problema Fractii Scor 10
Compilator c Status done
Runda Arhiva de probleme Marime 0.48 kb
#include <stdio.h>

FILE *f,*g;
long i,j,n,contor;

long cmmdc(long a, long b)
{
  long c,r;
	while(a%b != 0)
	  {
			r=a%b;
			a=b;
			b=r;
		}
  return b;		
}

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