Bài 1 :

- Bước 1 : nhập số n

- Bước 2 : i ← 1, t ← 1

- Bước 3 : nếu i > n thì đưa ra giá trị t rồi kết thúc

- Bước 4 :

- Bước 4.1 : t ← t * i

- Bước 4.2 : i ← i + 1 quay lại bước 3

Bài 2 : 

- Bước 1 : nhập số n

- Bước 2 : i ← 1, t ← 0

- Bước 3 : nếu i > n thì đưa ra giá trị t rồi kết thúc

- Bước 4 :

- Bước 4.1 : t ← t + i

- Bước 4.2 : i ← i + 1 quay lại bước 3

Bài 1:

*Mô tả thuật toán:

Input: n số tự nhiên

Output: n!

$B1:$ Nhập n

$B2:$ S←1; i←1;

$B3:$ Nếu i<=n thì chuyển $B4$; ngược lại thì chuyển $B5$;

$B4:$ S←S*i; i←i+1;

$B5:$ In kết quả ra màn hình và Kết thúc thuật toán

*Chương trình:

program giai_thua;

uses crt;

var n, i, S: longint;

Begin

         clrscr;

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

         S:=1; i:=1;

         while i<=n do 

                  begin

                           S:=S*i;

                           i:=i+1;

                  end;

         write('S = ',S);

         readln

End.

Bài 2:

*Mô tả thuật toán:

Input: n số tự nhiên

Output: Tổng n

$B1:$ Nhập n;

$B2:$ S←0; i←1;

$B3:$ Nếu i<=n thì chuyển $B4$; ngược lại thì chuyển $B5$;

$B4:$ S←S+i; i←i+1;

$B5:$ Thông báo kết quả và kết thúc thuật toán;

*Viết chương trình:

program Tong;

uses crt;

var n, i, T: integer;

Begin

         clrscr;

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

         T:=0; i:=1;

         while i<=n do 

                  begin

                           T:=T+i;

                           i:=i+1;

                  end;

         write('T = ',T);

         readln

End.