Cod sursa(job #944420)

Utilizator raducioacaCioaca Radu Andrei raducioaca Data 28 aprilie 2013 15:09:06
Problema Ciurul lui Eratosthenes Scor 20
Compilator fpc Status done
Runda Arhiva educationala Marime 0.35 kb
Raporteaza aceasta sursa 
VAR
v:array[1..100] of 0..1;
n,j,i,nr:0..100;
f,g:text;

begin
assign(f,'ciur.in');reset(f);
assign(g,'ciur.out');rewrite(g);
readln(f,n);
for i:=2 to n do v[i]:=1;
for i:=2 to n do
        if v[i]=1 then
                for j:=2 to n div i do v[i*j]:=0;
for i:=2 to n do
        if v[i]=1 then inc(nr);

writeln(g,nr);
close(g);
end.