再帰をみっちり仕込んで下さい！
■ このスレッドは過去ログ倉庫に格納されています
問題
function func(a:Integer):Integer;
var i:integer;
begin
Result:=0; if a<1 then exit;
Result:=1; if a<2 then exit;
for i:=1 to a-1 do Result:=Result+func(a-i)+func(i);
end;
func(23) を求めよ
■ このスレッドは過去ログ倉庫に格納されています