Cod sursa(job #196493)
| Utilizator | Data | 26 iunie 2008 21:15:19 | |
|---|---|---|---|
| Problema | Ciurul lui Eratosthenes | Scor | 100 |
| Compilator | fpc | Status | done |
| Runda | Arhiva educationala | Marime | 0.8 kb |
program ciur;
{$APPTYPE CONSOLE}
uses
SysUtils;
var c,i,j,n,m:Longint;
fin,fout:text;
v:array [2..2000000] of byte;
{*-----------MAIN-------------*}
begin
assign(fin,'ciur.in'); reset(fin);
assign(fout,'ciur.out'); rewrite(fout);
readln(fin,n); c:=0;
//for i:=2 to n do v[i]:=0; //v[n+1]:=1;
for i:=2 to n do
begin
if v[i] = 0 then
begin
inc(c);
j:=i+i;
While j <= n do
begin
v[j]:=1;
inc(j,i);
end;
end;
end;
writeln(fout,c);
close(fin);
close(fout);
end.
