K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

11 tháng 9 2019

Mình làm ý chính bạn ghép vào chương trình chính nhé.

for i:=1 to n do

if i mod 2=0 then write(i,' ');

writeln; { chẵn}

for i:=1 to n do

if i mod 2=1 then write(i,' '); {lẻ}