Question

De elaborat un program care conține o funcție recursivă ce calculează:
1)S(n)=1+2+3+4+5+...
Va rog frumos sa ma ajutati

Answer 1

Răspuns:

 var

   n: Word;

 function s(n: Word): Word;

 begin

   if n = 1 then

       s := n

   else

       s := n + s(n - 1);

 end;

begin

 Write('n: ');

 ReadLn(n);

 WriteLn('Suma: ', s(n));

end.