Mình làm bằng đệ quy nhé.
Ta có: $F(n)=\begin{cases}1\Leftrightarrow n=1\\
1\Leftrightarrow n=2\\
F(n-1)+F(n-2)\Leftrightarrow n>2\end{cases}$
Chương trình:
uses crt;
var n:longint;
function f(n:longint):longint;
begin
if n<=2 then f:=1
else f:=f(n-1)+f(n-2);
end;
begin
clrscr;
readln(n);
writeln(f(n));
readln
end.