(* * * jmeno: * fib * * popis: Vypocitej N-te fibbonaciho cislo * level: 2 * * zadani: * Fibonacciho cisla jsou zadany rekurentne: F(0) = 0, F(1) = 1, * F(n+2) = F(n+1) + F(n). * * input: * Jedno zadani na radku, zadani ma tvar: *. Z: N * kde Z je cislo zadani, N pozadovane cislo. * posledni zadani ma cislo 0. * * output: *. Z: F(N) * * soubory: * fib.pas, fib.out, fib.in * * au: vitas@popelka.ms.mff.cuni.cz * cp: gpl * *) var { cislo zadani } Z: Integer; { dvojtecka } dt: Char; N, i: Integer; F0, F1, F2: Integer; begin repeat read(Z, dt, dt, N); F0 := 0; F1 := 1; if n < 1 then F2 := 0 else if n = 1 then F2 := 1 else begin for i := 2 to N do begin F2 := F1 + F0; F0 := F1; F1 := F2; end; end; writeln(Z, ': ', F2); until Z = 0; end.