Cod sursa(job #42961)

Utilizator FlorianFlorian Marcu Florian Data 29 martie 2007 17:57:25
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.53 kb
#include<stdio.h>
#include<math.h>
long v[500000],k;
int tot(long n)
	{
	long i;
	long s=1;
	s=n;
	i=1;
	while (v[i]<=n&&i<=k)
	{
	if (n%v[i]==0) s=s-s/v[i];
	i++;}
	return s;}

int main()
{long nr,n,i,sol=0;
FILE*f=fopen("fractii.in","r");
FILE*g=fopen("fractii.out","w");
fscanf(f,"%ld",&n);
for (i=3;i<=n;i=i+2)
	{k=2;
	while (k<=n) {v[i*k]=1; k++;} }
k=1; v[1]=2;
for (i=3;i<=n;i=i+2) if (v[i]!=1) {k++;v[k]=i;}
sol=1;
for (i=2;i<=n;i++) sol+=2*tot(i);
fprintf(g,"%ld",sol);
fclose(f);
fclose(g);
return 0;}