Cod sursa(job #150684)

Utilizator ZillaMathe Bogdan Zilla Data 7 martie 2008 11:43:21
Problema Fractii Scor 0
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.42 kb
#include <stdio.h>
FILE *f=fopen("fractii.in","r"),*g=fopen("fractii.out","w");
long a[1000000],n,i,j,x,s;
     
int main()      
{
      fscanf(f,"%ld",&n);
    for(i=2;i<=n;++i)
       {if(a[i]==0)
	  s+=i-1;
	else s+=a[i];
       for(j=2;i*j<=n;++j)
	if(a[i*j]==0)
	a[i*j]=i*j-i*j/i;
	else
	a[i*j]-=a[i*j]/i;
       }
      s=s*2+1;
      fprintf(g,"%ld",s);
      fclose(g);
      return 0;      
}