Câu 7:

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;