Fibonacci

*Obtener secuencia de Fibonacci

Algoritmo
Var
i, n, ult, penult, suma: entero

inicio

Leer (n)
suma := 1
ult := 1
penult := 1
desde i:= 2 hasta n hacer
suma := ult + penult
penult := ult
ult := suma
Fin desde
Escribir (“Fibonacci de “, n, “=”, suma)
fin