差分
ナビゲーションに移動
検索に移動
<source lang="delphi">program fibonacci; function fib(n:integer): integer;begin if (n <= 2) then fib := 1 else fib := fib(n-1) + fib(n-2);end; var i:integer; begin for i := 1 to 16 do write(fib(i), ', '); writeln('...');end.<* [[フィボナッチ数/source>Turbo Pascal]]
=== フィボナッチ数列 ===
=== 階乗 ===
