Cod sursa(job #203623)

Utilizator AdrianSoucupAdrian Soucup AdrianSoucup Data 18 august 2008 00:01:19
Problema Fractii Scor 30
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.45 kb
#include <stdio.h>
int No[1000000];
	
int main ()
{
	FILE *in, *out;
	in=fopen("fractii.in", "r");
	out=fopen("fractii.out", "w");
	long n, i, j, k, NrPrime=0, TOT;
	fscanf(in, "%ld", &n);
	No[1]=1;
	for(i=2; i<=n; i++)
	{
		TOT=i;
		for(j=2*i; j<=n; j+=i)
			No[j]=1;
		for(k=2; k<=i; k++)
			if(!No[k]&&i%k==0)
				TOT*=(k-1), TOT/=k;

		NrPrime+=TOT;
	}
	fprintf(out, "%ld\n", NrPrime*2+1);
	fclose(in);
	fclose(out);
	return 0;
}