Viết chương trình nhập vào số tự nhiên n, in ra các số từ 1 đến n.
2 câu trả lời
Uses crt;
var n,i:integer;
begin
write('nhap n: ');readln(n);
for i:=1 to n do write(i:3);
readln
end.
program Tin_hoc;
uses crt;
var i,n:integer;
begin
clrscr;
write('n=');readln(n);
writeln('Cac so tu 1 den n la:');
for i:= 1 to n do write(i,' ');
readln;
end.