Komisch 34 (z.B.) geht wieder, ich kann auch keinen Fehler erkennen. Probiers mal mit
Delphi-Quellcode:
function NFak(Val: Integer): Int64;
var i:Integer;
begin
if Val < 0
then
raise Exception.Create('
Val muss größer/gleich 0 sein.');
Result := 1;
for i:= Val
downto 1
do Result := Result * i;
end;
Was ist an deinem Code bitte rekursiv???
Ratte