Cod sursa(job #158409)

Utilizator skydomePop 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.