Question

in ra các số từ 1 đến n (vs n đc nhập từ bàn phím)

Answer 1

uses crt;

var i,n: longint;

begin

clrscr;

readln(n);

for i:=1 to n do write(i,' ');

readln

end.

Answer 2

Uses crt;
Var a,b,n:integer; {Với a,b phải là số nhỏ thì dùng với kiểu integer}
Begin
Writeln('Nhap so n la:'); Readln(n);
a:=0; b:=0;
While a<=n do
 Begin
   b:=b+a;
   a:=a+1; {Chỉ áp dụng với tổng các số liên tiếp}
 end;
Writeln('Vay tong cac so tu 1 -> ',n,' la:',b);
Readln
End.
Bài mẫu của mình đây nhé!

Answer 3

uses crt;

var i,n:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do

 write(i:4);

readln;

end.