2 câu trả lời
uses crt;
var i,n:longint;
begin
clrscr;
readln(n);
for i := 1 to n do
write(abs(n-n+i),#32);
readln
end.
uses crt;
var n,i:integer;
begin
write('nhap n ');
readln(n);
for i:=1 to n do
write(i,' ');
readln;
end.
uses crt;
var i,n:longint;
begin
clrscr;
readln(n);
for i := 1 to n do
write(abs(n-n+i),#32);
readln
end.
uses crt;
var n,i:integer;
begin
write('nhap n ');
readln(n);
for i:=1 to n do
write(i,' ');
readln;
end.
