Cod sursa(job #158409)
| Utilizator |  Pop Paul skydome |
Data | 13 martie 2008 17:13:09 |
|---|---|---|---|
| Problema | Ciurul lui Eratosthenes | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva educationala | Marime | 0.33 kb |
var n,i,x:longint;
v:array[1..20000]of boolean;
f,g:text;
begin
assign(f,'ciur.in');
reset(f);
readln(f,n);
close(f);
for i:=2 to n do
begin
if not v[i] then begin
write(i,' ');
x:=i;
repeat
x:=i+x;
v[x]:=true;
until x>=n;end;
end;
readln;
end.