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.
Поделитесь своими знаниями, ответьте на вопрос:
Дан рекурсивный алгоритм: procedure F(n: integer); begin writeln('*'); if n > 0 then begin writeln('*'); F(n-2); F(n div 2); F(n div 2); end end; Сколько символов "звездочка" будет напечатано на экране при выполнении вызова F(7)?
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.