[#] Ciąg Fibbonaci

( Ostatnio zmieniony pon., 09/06/2008 - 19:24 )
 
function fb ( n: integer) : integer;
begin
   if n <= 2 then fb := 1 else begin
      fb := fb(n - 1) + fb(n - 2);
   end;
end;
3
Twoja ocena: Brak Średnio: 3 (2 głosy)