function suma_recursiv(n:integer):integer;
begin
if n=1 then suma_recursiv:= 1
else suma_recursiv:= n+suma_recursiv( n-1 );
end;
var n, suma: integer;
writeln('Introduceti un numar natural' );
readln( n );
suma := suma_recursiv( n );
writeln('Rezultat: ', suma);
end.
Присоединяйтесь — мы покажем вам много интересного
Присоединяйтесь к ОК, чтобы подписаться на группу и комментировать публикации.
Комментарии 1
function suma_recursiv(n:integer):integer;
begin
if n=1 then suma_recursiv:= 1
else suma_recursiv:= n+suma_recursiv( n-1 );
end;
var n, suma: integer;
begin
writeln('Introduceti un numar natural' );
readln( n );
suma := suma_recursiv( n );
writeln('Rezultat: ', suma);
end.