Cod sursa(job #15111)

Utilizator dfsdeckStefan Oprea dfsdeck Data 10 februarie 2007 19:19:44
Problema Fractii Scor 0
Compilator c Status done
Runda Arhiva de probleme Marime 0.38 kb
#include <stdio.h>

int main()
{	FILE * f = fopen("fractii.in", "r");
        long i, j, n, k, l, c, s=1;
        fscanf(f, "%ld", &n);
	for(i=1; i<n; i++)
		for(j=i+1; j<=n; j++)
		{	k=i; l=j;
			while(k!=0)
			{	c=j%k;
				j=k;
				k=c;
			}
			if(j==1)
				s+=2;
		}
	fclose(f);
	f=fopen("fractii.out", "w");
	fprintf(f, "%ld\n", s);
	fclose(f);
	return 0;
}