Fakultät

[arbu man]

sollte auch gehen

Delphi-Quellcode:

Function fak(s:string):string;
var f,f2:integer;
f1:extended;
begin
F:=0;
f1:=round(strtofloat(s));
f2:=1;
repeat begin
f:=f+1;
F2:=f2*f;
end; until f1=f;
result:=inttostr(f2);
end;