👤
Sambler
a fost răspuns

Ajutor pentru a face o lucrare practică


Ajutor Pentru A Face O Lucrare Practică class=
Ajutor Pentru A Face O Lucrare Practică class=

Răspuns :

Varianta recursiva : 
function suma(n : integer) : integer;
       begin if n = 1 then suma:= 1
                      else suma:= suma(n-1) + n
       end;

Varianta fara recursivitate :
  var 
    n:integer
    i:integer
   suma:integer
for  i := 0 to n do  suma=suma+i  ;
Write (suma);