Xác định bài toán:
INPUT: Số n được nhập từ bàn phím
OUTPUT: n! (n giai thừa)
Mô tả thuật toán:
Bước 1: Nhập n. i<-0, k<-1
Bước 2: i<-i+1, k<-k*i
Bước 3: Nếu i<n thì quay lại bước 2. Nếu sai, đi xuống bước 4
Bước 4: Kết thúc thuật toán.
Chương trinh:
uses crt;
var i,a:integer; k: longint
begin
write('Nhap n: '); readln(a);
k:=1;
for i:=2 to a do k:=k*i;
write('Ket qua: ',k);
end.