Procedura recursiva factorial

var a,b,c,d:integer;
procedure fact(var a,f:integer);

begin
if a=1 then a:=1 else  begin
f:=a*f;
a:=a-1;
fact(a,f);    end;

end;

begin
 c:=1;
 d:=1;
a:=6;
b:=3;
fact(a,c);
fact(b,d);

write(c+d);
end.

ComentariiReinoieste comentariile

Logare

Utilizator:
Parola:
Retine-ma
Inregistrare