12
Объяснение:
function f(n:integer):integer;
begin
f:=0;
if n > 1 then
f:=1+f(n-1)+f(n div 2);
end;
write(f(7));
end.
12
Объяснение:
function f(n:integer):integer;
begin
f:=0;
if n > 1 then
f:=1+f(n-1)+f(n div 2);
end;
begin
write(f(7));
end.