Помогите с функциями и процедурами Опции

[microbe]

Вычислить
1.

2.

Используя функции и процедуры

Сообщение отредактировано: microbe - 12.10.2010 18:30

[volvo]

Это стандартная задача на использование рекурсии, если что:

function f(n: integer): real;
begin
  if n = 51 then f := 0
  else f := sqrt(n + f(n + 1));
end;

// вызывать f(1)