Перед вами фрагменты программы. Составьте из данных фрагментов программу с рекурсией для вычисления суммы первых пяти натуральных чисел. var o,n:integer; function summa(n:integer):integer; begin if n=1 then summa:=1 else summa:=n+summa(n-1); end; begin o:=summa(5); writeln(o); end.
Задание

Перед вами фрагменты программы. Составьте из данных фрагментов программу с рекурсией для вычисления суммы первых пяти натуральных чисел.

  • var o,n:integer;
  • function summa\(n:integer\):integer;
  • begin
  • if n=1 then summa:=1
  • else summa:=n+summa\(n\-1\);
  • end;
  • begin
    o:=summa\(5\);
  • writeln\(o\);
  • end.