Bài tậpCâu 1: Viết chương trình in các số từ 1 đến 1000 ra màn hình 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. 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. 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.

$\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.