рекурсия

[Ника-Вероника]

Функция f(n) определена на множестве натуральных чисел следующим образом:
f(n)= система
1, если n=1;
значек суммыf(n div i), где i=2 до n , если n>=2.
Вычислите значение данной функции для заданного значения n.
Помогите пожалуйста!

[whatever]

Если я все правильно понял

И зачем тут рекурсия?

function func(n:integer):integer;
  var
    i:integer;
  begin
    func:=0;
    if n=1 then
      func:=1
    else
      for i:=2 to n do
        func:=func+(n div i);
  end;

[rubius2008]

function f(n:integer):integer;
var i,s:integer;
begin
  if n=1 then f:=1 
  else begin 
            s:=0;
            for i:=2 to n do s:=s+f(n div i);
            f:=s;
         end;
end;

[Ника-Вероника]

Большое спасибо! У нас просто тема "Рекуррентные соотношения. Рекурсии"

[Plague]

Большое спасибо!

За не правильно решенную задачу. "двойку" еще не поставили?)
Решать примерно так:

function f(n,i:longint):longint;
begin 
  if (n=1)or(i=n) then f:=1
                  else f:=f(n,i+1)+n div i;
end;
var a:longint;
begin
  readln(a);
  writeln(f(a,2));
end.

он хоть правильный ответ выдает)

[whatever]

А все из-за того, что задания нужно правильно формулировать. Я, например, вообще f не заметил в

значек суммыf(n div i)

[Plague]

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

function f(n:integer):integer;
var i,s:integer;
begin
  if n=1 then f:=1 
  else begin 
            s:=0;
            for i:=2 to n do s:=s+f(n div i);
         end;
    f:=s; 
end;