Cod sursa(job #32648)

Utilizator cromdioxidSasa Pastor cromdioxid Data 18 martie 2007 11:42:20
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.42 kb
#include<stdio.h>
int cmmdc(long int a,long int b)
{ while(a!=b)
  {if(a>b) a=a-b;
   else b=b-a;
}
  if(a==1) return 1;
  return 0;
}
int main ()
{ long int n,f=0,i,j;
  FILE *fin,*fout;
  fin=fopen("fractii.in","r");
  fout=fopen("fractii.out","w");
  fscanf(fin,"%ld",&n);
  fclose(fin);
  for( i=1;i<=n;i++)
	  for( j=1;j<=n;j++)
		  if(cmmdc(i,j)) f++;
  fprintf(fout,"%ld",f);
	fclose(fout);
  return 0;
}