Pascal 017 ► Mostrar Serie de Fibonacci

Ejercicio 017: Mostrar n dígitos de la sucesión de Fibonacci

Program Pascal_017;

Uses crt;

Var

    i, n, ant, sig: integer;

Begin 

    Write('¿Cuantos números se mostraran? ');

    ReadLn(n);

    ant := 1;

    sig := 1;

    write('1, ');

    i := 1;   

    while i < n do

    begin

        ant := sig - ant;

        sig := ant +  sig;

        Write(sig,', ');

        i := i+1;

    end;

    ReadKey;

End.

La Sucesión de Fibonacci es una serie infinita de números que inicia en 1, 1, y los siguientes dígitos en la serie son la suma de los dos dígitos anteriores:

1, 1, 2, 3, 5, 8, 13, 21, 34, 55, 89, 144, 233, ...