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:

Kết quả của thuật toán dưới đây:

Procedure Test (n:integer);

Begin 

If (n>0) and (n<10) then Write(n) 

If n>=10 then begin 

Write(n mod 10);

Test (n div 10);

End; 

End;

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.

Cho B = {1, 0, 1, 0, 1, 0, 1, 1, 1, 0}, n=10. 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:

Type Mang= array[1..10] of Integer;

Function Test(B:mang; n:integer): mang;

Var i:integer;

Begin

i:=n-1;

While (i>=0) and (B[i]=1) do

Begin B[i]:=0; i:=i-1; End;

B[i]:= 1;

End;

Kết quả thuật toán đệ quy:

Function Test(st:string):string;

Begin

If length(st) <=1 then Test:=st

Else Test:= st[length(st)] + Test(Copy(st,1,length(st)-1));

End;

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:

Function Test (n: Integer): Integer;

Var f1, f2, fn: Integer;

Begin

f1=1;

f2=1;

i:=3;

While i<=n do

Begin

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

i:=i+1;

End;

Test:= fn;

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;

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