$\text{Pascal}$

Câu 1: Viết chương trình in các số từ 1 đến 1000 ra màn hình

 program khoadang09_hd247.com;
  uses crt;
   var i:integer ;
 begin
  clrscr;
   for i :=1 to 1000 do
        writeln(i:2);
     end.

Câu 2: Viết chương trình nhập số n, in các số từ 1 đến n ra màn hình.

 program khoadang09_hd247.com;
  uses crt;
   var i,n:integer ;
 begin
  clrscr;
  write('n=');
    readln(n);
   for i :=1 to n do
        writeln(i:2);
     end.

Câu 3: Viết chương trình tính tổng các số từ 1 đến 100. Sau đó, in kết quả ra màn hình.

 program khoadang09_hd247.com;
  uses crt;
   var i,s:integer ;
 begin
  clrscr;
   for i :=1 to 100 do
        s := s + i;
    writeln('tong tu 1-100 la: ',s);
     end.

Câu 4: Viết chương trình nhập số n. Tính tổng các số từ 1 đến n và in kết quả ra màn hình.

 program khoadang09_hd247.com;
  uses crt;
   var i,s,n:integer ;
 begin
  clrscr;
  write('n=');
   readln(n) ;
   for i :=1 to n do
        s := s + i;
    writeln('tong tu 1-',n,' la: ',s);
     end.

1.

uses crt;

var i,t: integer;

begin

clrscr;

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

readln

end.

2.

uses crt;

var n,i: integer;

begin

clrscr;

readln(n)

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

readln

end.

3.

uses crt;

var i,t: integer;

begin

clrscr;

for i:=1 to 100 do t:=t+i;

write(t);

readln

end.

4.

uses crt;

var i,n,t: integer;

begin

clrscr;

readln(n)

for i:=1 to n do t:=t+i;

write(t);

readln

end.