Logare

Utilizator:
Parola:

Inregistrare

Ultimele noutăţi

ATENŢIE CONCURS!
Colegiul de Industrie Ușoară din Bălți anunţă concurs pentru ocuparea funcţiei de şef secţie pentru asigurarea calităţii și director adjunct pentru instruire practică și producere.La concurs pot participa cetăţeni ai Republicii Moldova cu studii superioare universitare, vechime de mu..

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