Pagini recente » Cod sursa (job #308917) | Cod sursa (job #459850) | Cod sursa (job #544924) | Cod sursa (job #33813) | Cod sursa (job #209858)
Cod sursa(job #209858)
program Ciur;
var
a : array[1..200000] of char ;
n,i,j,k:longint;
fl:text;
begin
assign(fl,'ciur.in');
reset(fl);
readln(fl,n);
close(fl);
for i := 1 to n do
a[i] := '1';
i := 3;
while i <= n div 2 do
begin
j := 3;
while j <= n div i do
begin
a[i*j] := '0';
j := j+2;
end;
i := i+2;
end;
assign(fl,'ciur.out');
rewrite(fl);
write(fl,'2 ');
i := 3;
while i <= n do
begin
if a[i] = '1' then
write(fl,i,' ');
i := i+2;
end;
close(fl);
end.