Cod sursa(job #63948)

Utilizator BismarckZaharie Filip Bismarck Data 31 mai 2007 19:43:31
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.33 kb
Raporteaza aceasta sursa 
#include <stdio.h>


long n,i,j,b,r,nr=0,a;


int main()
{
FILE *fi=fopen("fractii.in","r"), *fo=fopen("fractii.out","w");

fscanf(fi,"%ld",&n);


for(i=1;i<=n;i++)
 for(j=1;j<=n;j++)
  {
   b=i; a=j;

   while(b)
   	{
	r=a%b;
	a=b;
	b=r;
	}
    if(a==1)nr++;
  }

fprintf(fo,"%ld",nr);



return 0;
}