home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
86xx
/
8609.d64
/
fak
< prev
next >
Wrap
Text File
|
1995-03-30
|
337b
|
20 lines
program fakultaet;
var n:integer;
function rekursiv(n:integer):integer;
begin
if n=0 then rekursiv:=1
else rekursiv:=rekursiv(n-1)*n
end;
function iterativ(n:integer):integer;
var i,f:integer;
begin
f:=1;
for i:=2 to n do f:=f*i;
iterative:=f
end;
begin
n:=3;
writeln(rekursive(n));
writeln(iterative(n))
end.