Đề Bài : Viết chương trình nhập 1 số nguyên dương n , xuất ra màn hình 1 dãy số nguyên dương từ 1 đến n là lẻ và 1 dãy số nguyên dương 1 đến n là chẵn Phạm vi từ 1 đến 10 Giup mình với nếu đúng hứa vote 5sao + cám ơn + câu trả lời hay nhất
2 câu trả lời
program ct;
uses crt;
var i,n:integer;
begin clrscr;
write('Nhap so n: '); readln(n);
write('Cac so nguyen duong tu 1 den ',n,' la le: ');
for i:=1 to n do
if i mod 2<>0 then write(i:3);
writeln;
write('Cac so nguyen duong tu 1 den ',n,' la chan: ');
for i:=1 to n do
if i mod 2=0 then write(i:3);
readln;
end.
Học tốt!
uses crt;
var i,n:longint;
begin
clrscr;
write('n=');readln(n);
for i:=1 to n do if i mod 2=1 then write(i,' '); writeln;
for i:=1 to n do if i mod 2=0 then write(i,' ');
readln
end.