Logare

Utilizator:
Parola:

Inregistrare

Ultimele noutăţi

Ziua de Curățenie Globală
Tineri, neliniștiți, cu o conștiință civică împlinită!,, Hai Moldova!"Ziua de Curățenie Globală/Națională...Porniți la drum... Vezi aici..

Procedura recursiva factorial
Inapoi la lista cursurilor

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
Twitter   facebook facebook Mail.ru