Вычислить значение выражения - Turbo Pascal (33915)

Формулировка задачи:

Кто может сделать пожалуйста??

Код к задаче: «Вычислить значение выражения - Turbo Pascal (33915)»

textual
function f(n : integer) : real;
begin
  if n < 0 then f := 0
  else f := sqrt(n + f(n - 2));
end;
 
var 
  n : integer;
begin
  write('n = '); readln(n);
  writeln(f(2*n+1));
end.

7   голосов, оценка 4.286 из 5


СОХРАНИТЬ ССЫЛКУ