Số các hoán vị lặp cấp m kiểu (k₁ , k₂ , ..,k_N ) của n phần tử khác nhau được tính theo công thức:

Giả sử các khai báo biến đều hợp lệ. Ðể tính S = 10!, chọn câu nào?

Khi chạy chương trình:

Var S, i, j : Integer;

Begin

S := 0;

for i:= 1 to 3 do

for j:= 1 to 4 do S := S + 1 ;

End.

Giá trị sau cùng của S là:

Từ bảng chữ cái tiếng Anh có thể tạo ra được bao nhiêu xâu kí tự có độ dài N.

Thuật toán đệ quy dưới đây:

Function dequy(a: real; n:integer);

Begin

If n = 0 then dequy:=1

Else dequy:= a* dequy (a,n-1);

End;

Thuật toán dưới đây tính:

Function Test (n: Integer): Integer;

Var f1, f2, fn: Integer;

Begin

i:=2;

While i<=n do

Begin

fn := f1 + f2; f1:=f2; f2:=fn;

i:=i+1;

End;

Test:= fn;

End;

Thuật toán đệ qui dưới đây tính:

Function Test (n:integer):longint;

Begin

If n = 0 then Test:=1

Else Test:= n * Test(n-1);

End