Дан рекурсивный алгоритм:

procedure F (n: integer) ;

begin

writeln ('*') ;

if n > 0 then begin

F (n-3) ;

F (n-2) ;

F (n div 2) ;

F (n div 2) ;

end

end;

Сколько символов "звездочка" будет напечатано на экране при выполнении вызова F (6) ?

Дурацкая по своей трудоемкости задача, если делать её вручную.

А если написать полную программу и вставить туда счетчик вызовов F (n), то окажется, что для вызова F (6) процедура будет вызвана 97 раз. При каждом вызове выводится звездочка, поэтому их будет выведено тоже 97.

Проверка выполнялась по следующей программе:

var

k:integer;

procedure F (n: integer) ;

begin

writeln ('*') ;

k:=k+1;

if n > 0 then begin

F (n - 3) ;

F (n - 2) ;

F (n div 2) ;

F (n div 2) ;

end

end;

begin

k:=0;

F (6) ;

Writeln (k)

end.