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