Logare

Utilizator:
Parola:

Inregistrare

Ultimele noutăţi

Admitere 2018
DISTRIBUȚIA locurilor la programele de formare profesională tehnică postsecundară  Specialitatea Buget Contract Total Filatură si tesătorie 17 10 27 Modelarea, proiectarea şi tehnologia confecţiilor din tricot 17 10 27 ..

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