Cod sursa(job #899282)

Utilizator tureanchristinetunich tureanchristine Data 28 februarie 2013 13:44:48
Problema Factorial Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.19 kb
Raporteaza aceasta sursa 
program recursiv;
var n:integer;
function fact(n:integer):longint;
begin
if n=0 then fact:=1
      else fact:=n*fact(n-1);
      end;
      begin
readln(n);
fact(n);
writeln(fact(n));
end.