Cod sursa(job #136235)

Utilizator lostBlanaru Adina lost Data 15 februarie 2008 12:43:24
Problema Fractii Scor 20
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.47 kb
#include<stdio.h>
#include<string.h>
#define Nmax 1000001
int a[Nmax];
long n;
int main()
{
long fr=0,i,k,j;
freopen("fractii.in","r",stdin);
freopen("fractii.out","w",stdout);
scanf("%ld",&n);
long l;
fr=2*n-1;
for(i=2;i<=n;i++)
   {
   for(j=2;j<=n;j++)
      {
      if(i%j==0 && a[j]==0)
	 for(k=1,l=j;l<=n;k++)
	      {
	      a[l]=1;
	      l=j*k;
	      }
   if(a[j]==0)
		fr++;
       else a[j]=0;
      }
   }
printf("%ld\n",fr);
return 0;
}