Cod sursa(job #136222)

Utilizator lostBlanaru Adina lost Data 15 februarie 2008 12:30:44
Problema Fractii Scor 20
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.48 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,m;
fr=n;

for(i=2;i<=n;i++)
   {
   for(j=2;j<=n;j++)
      if(i%j==0)
	 for(k=1,l=j;l<=n;k++)
	      {
	      a[l]=1;
	      l=j*k;
	      }

   for(j=1;j<=n;j++)
      if(a[j]==0)
	 fr++;
   memset(a,0,sizeof(int)*(n+1));
   }
printf("%ld\n",fr);
return 0;
}