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.