Cho số nguyên dương N. Ta tạo ra dãy số bằng cách viết các số lẻ nhỏ hơn hoặc bằng N theo thứ tự tăng dần từ trái sang phải, sau đó viết các số chẵn còn lại cũng theo thứ tự tăng dần từ trái sang phải. Ta thu được một dãy số gồm các số lẻ ở đầu dãy và các số chẵn ở cuối dãy.
Ví dụ: Nếu N = 5 thì ta được dãy số là 1, 3, 5, 2, 4.
Nếu N = 8 thì ta được dãy số là 1, 3, 5, 7, 2, 4, 6, 8.
(lap trinh pascal)
uses crt;
var i,n:integer;
begin
clrscr;
readln(n);
for i:=1 to n do
if i mod 2=1 then write(i:4);
for i:=1 to n do
if i mod 2=0 then write(i:4);
readln;
end.