Cod sursa(job #187011)

Utilizator the.phoenixMihaescu Tiberiu Ioan the.phoenix Data 29 aprilie 2008 19:58:54
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.32 kb
#include<fstream.h>
#include<stdio.h>
int main()
{FILE *f,*g;
f=fopen("fractii.in","r");
g=fopen("fractii.out","w");
long n,t=0,i,j,a,b,r;
fscanf(f,"%ld",&n);
for(i=1;i<=n;i++)
	for(j=1;j<=n;j++)
		{a=i;
		 b=j;
		while(b!=0)
		{r=a%b;
		a=b;
		b=r;
		}
		if(a==1)
			t++;
		}

fprintf(g,"%ld",t);
return 0;
}