Cod sursa(job #705725)
Utilizator | Iulian iu.ciocoiu | Data | 4 martie 2012 20:33:44 |
---|---|---|---|
Problema | Ciurul lui Eratosthenes | Scor | 30 |
Compilator | fpc | Status | done |
Runda | Arhiva educationala | Marime | 0.59 kb |
program numere_prime;
var i,nr,j,n:longint;
cond:boolean;
f,g:text;
begin
assign (f,'ciur.in'); reset (f);
assign (g,'ciur.out'); rewrite (g);
read (f,n);
i:=3;
nr:=1;
while (i<=n) do begin cond:=true;
for j:=3 to trunc(sqrt(i)) do
if (i mod j=0) then begin cond:=false;
break;
end;
if (cond=true) then nr:=nr+1;
i:=i+2;
end;
write (g,nr);
close (f);
close (g);
end.