Question

Определите, сколько звёздочек будет напечатано в результате вызова F(7)?
procedure F(n: integer);
begin
if n > 1 then
begin
write(‘ * ’);
F(n - 1);
F(n div 2)
End;
end;
Нужно очень срочно, пожалуйста.

Answer 1

Ответ:

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.