Question

Am nevoe de un program Pascal, care va fi cu functie si variabie dinamice si va calcua factorialul unui numar.

Answer 1

program factorial;

function fact(n: integer): longint;
begin
   if (n = 0) then
      fact := 1
   else
      fact := n * fact(n - 1);
end;


var n: integer;

begin
   for n := 0 to 16 do
      writeln(n, '! = ', fact(n));
end.