Logare

Utilizator:
Parola:

Inregistrare

Ultimele noutăţi

Suntem profund îndurerați
Suntem profund îndurerați de trecerea în neființă a Omului, mamei, bunicii, profesorului Nina BAIBARAC.. DUMNEZEU SĂ TE ODIHNEASCĂ ÎN PACE.....

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