Cod sursa(job #229944)

Utilizator BlackjackmdsSpataru Madalin Daniel Blackjackmds Data 12 decembrie 2008 11:23:11
Problema Fractii Scor 0
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.59 kb
#include <iostream.h>
#include <fstream.h>
#include <math.h>
fstream f("fractii.in",ios::in);
fstream g("fractii.out",ios::out);
int main()
{long n,m;
int i,j,d,k,ok;
int dprim[2000];
f>>n;
f.close();
m=n;
if(n>=2) m=m+n-n/2;
dprim[0]=2;
i=1;
d=3;
for(d=3;d<=n;d=d+2)
{j=0;
 ok=1;
 while((j<i)&&(ok==1))
  if(d%dprim[j]==0) ok=0;
	  else j++;
 if(ok==1){dprim[i]=d;
	    i++;
	   }

}


if(n>2) for(k=3;k<=n;k++)
	  {j=0;
	   m=m+n;
	   while(dprim[j]<=k)
	    {if(k%dprim[j]==0) {m=m-n/dprim[j]; }
	     j++;
	    }
	  }

g<<m;
g.close();
return 0;
}