aus Paswiki Turbo Pascal, der freien Wissensdatenbank

Beschreibung

Dieses Programm rechnet für Sie die Fakultät einer beliebigen positiven,ganzen Zahl aus.

Höchstgrenze zur Berechnung ist 2750.

Programm

{$N+}
var i,a,x:extended;
begin
a:=1;
writeln('Von welcher natuerlichen Zahl wollen Sie die Fakultaet haben');
readln(x);

repeat
i:=i+1;
a:=a*i;
until i=x;

write('Die Fakultaet von ',x:0:0,' ist : ',a:0:0);
readln;

end.

---

--Gastarbeiter 15:43, 27. Feb 2006 (CET)

---