Question

россе
Вариант 12
1. Дан рекурсивный алгоритм:
procedure F(n: integer);
begin
writeln("*');
if n > 0 then begin
writeln('*');
F(n-1);
F(n div 2);
end
end;
Сколтко символом звехдочка юудет напечатаннт на экране привыполнении вызова F(5)
РЕШИТЕ ПОЖАЛУЙСТВ​

Answer 1

Ответ:

Всего звёздочек = 40

Объяснение:

var

b : integer;

procedure F(n: integer);

begin

 inc(b);

 writeln('*');

 if n > 0 then begin

   inc(b);

   writeln('*');

   F(n-1);

   F(n div 2);

 end

end;

var

 a : integer;

begin

 b:=0;

 a:=5;

 f(a);

 writeln('Всего звёздочек =', b);

end.