pascal: viết chương trình nhập vào số nguyên n từ bàn phím in ra: -các số nguyên từ 1 đến n -các số lẽ từ n đến 1 -các số chẳn từ 1 đến n
2 câu trả lời
uses crt;
var i,n:longint;
begin
clrscr;
write('Nhap n: ');readln(n);
for i:=1 to n do write(i,' '); writeln;
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.
uses crt;
var n,i:longint;
begin
clrscr;
readln(n);
for i:=1 to n do write(i,' ');writeln;
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.
