Здравствуйте! У меня возникла небольшая проблема: не могу дописать программу по рекурсии.
Вот условие задачи:
-------------------------
Задано натуральное N. Разработать программу для подсчета заданной сумы (использовать рекурсивные процедуры или функции):
------------------------
Намучился с этой прогой.. Сделал только функцию для подсчета (k+1)! в Ak, и то не знаю правильно ли:
Код:
Function zn(k:integer):double;
begin
if k=0 then result:=1
else
result:=zn(k)*(k+1);
end;
Пожалуйста, помогите написать программу! Скоро надо сдавать лабу..
