Cod sursa(job #1399788)

Utilizator ursu.daniel2202dUrsu Daniel ursu.daniel2202d Data 24 martie 2015 21:58:16
Problema Ciurul lui Eratosthenes Scor 100
Compilator fpc Status done
Runda Arhiva educationala Marime 0.46 kb
program ciurul_lui_erathostenes;
var n,i,k,j:longint;
	a:array[1..2000010] of 0..1;		//1 - nu-i prim
	f,g:text;							//0 - e prim

BEGIN

	assign(f,'ciur.in');reset(f);
	read(f,n);
	close(f);

	for i:=2 to n  do
	  if a[i]=0 then					//excludem toti multiplii fiecarui numar pana la n
	    for j:=2 to n div i do
	      a[i*j]:=1;

	for i:=2 to n do
	  if a[i]=0 then inc(k);

	assign(g,'ciur.out');rewrite(g);
	write(g,k);
	close(g);

END.