сколько раз будет вызываться функция f при подсчете f(15)?самый первый вызов тоже считается. например при подсчете f(1) функция будет вызвана 1 раз. помогите, с решением пожалуйста
function f(n:integer):integer;
var i,sum:integer;
begin
sum:=1;
for i:=2 to n-2 do begin
if i*i mod n > n div 2 then
sum:= sum + f(i) + i
end;
f:=sum;
end;
function f(n:integer):integer;
var i,sum:integer;
begin
sum:=1;
for i:=2 to n-2 do begin
if i*i mod n > n div 2 then
sum:= sum + f(i) + i
end;
f:=sum;
end;
Answers & Comments
Verified answer
Function f(n: integer): integer;var
i, sum: integer;
begin
writeln('f(', n,')');
sum := 1;
for i := 2 to n - 2 do
begin
if i * i mod n > n div 2 then
sum := sum + f(i) + i
end;
f := sum;
end;
begin
writeln(f(15));
end.
При запуске выдало:
f(15)
f(3)
f(5)
f(2)
f(3)
f(10)
f(3)
f(4)
f(6)
f(2)
f(4)
f(7)
f(2)
f(5)
f(2)
f(3)
f(12)
f(3)
f(9)
f(4)
f(5)
f(2)
f(3)
122
Посчитав строчки получаем 23 раза вызвалась функция)