Cod sursa(job #555360)
| Utilizator |  Dimulescu David lehman97 |
Data | 15 martie 2011 14:09:23 |
|---|---|---|---|
| Problema | Ciurul lui Eratosthenes | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva educationala | Marime | 0.32 kb |
var i,j:word;
n:integer;
ciur:array[1..64000]of byte;
begin
assign(input,'ciur.in');reset(input);
assign(output,'ciur.out');rewrite(output);
read(n);
for i:=1 to n do
ciur[i]:=1;
for i:=2 to n div 2 do
for j:=2 to n div i do
ciur[i*j]:=0;
for i:=2 to n do
if ciur[i]=1 then write(i,' ');
close(output);
end.