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

Function Test(a,b:Integer): Integer;

Begin 

If (a=0) or (b=0) then Test:=a+b 

Else

If a > b then Test:=Test(a-b,b)

Else Test:= Test(a,b-a);

End;

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:

Số tổ hợp lặp chập r từ tập n phần tử bằng:

Số các tổ hợp chập k của tập n phần tử là:

Cho C = {2, 4, 5, 6, 7, 8}, k = 6, n=9. Kết quả nào đúng trong số những kết quả dưới đây sau khi thực hiện thuật toán Test(C, k, n): 

Function Test(C:array[1..10] of integer; k,n:integer); 

Var i,j: integer; 

Begin 

i:=k; While (i>0) and (c[i]=n-k+i) do i:=i-1;

If i> 0 then

Begin c[i]:= c[i] +1;

For j:= i+1 to k do c[j]:=c[i] + j-1;

End;

End;

Cho thuật toán:

Function Test(a,b): Integer;

Begin

If (b = a) or (b = 0) then Test:=1

Else Test := Test (a-1,b-1) + Test (a-1,b);

End;

Với a = 21, b = 3. Kết quả nào đúng trong số những kết quả dưới đây:

Số các các hoán vị của tập n phần tử là:

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;