Задание 8

Найти n-й член ряда Фибоначчи. (Ряд Фибоначчи задается начальными значениями f₁ = 1, f₂ = 1 и рекуррентным соотношением и имеет вид: 1, 1, 2, 3, 5, 8 …). Для решения задачи используется вложенная структура цикл с параметром в развилке.

Блок-схема

Текст программы на языке Pascal

program numbers_of_Fibonacci;
uses crt;
varn, i, f, f1, f2: integer;

Begin

write ( 'Введите n:'); readln (n) ;
if n < =3 then f:=1
else
begin
f1:=l; f2:=l;
for i:=3 to n do
begin
f:=f1+f2;
f1:=f2;
f2:=f;
end;

end;

writeln (n,'-е число Фибоначчи=', f);
readln
end.