Дан рекурсивный алгоритм:
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)?

20 звезд.Можно легко проверить,переделав алгоритм.var s:integer;procedure F(n: integer);beginwriteln('*');if n>0 then beginwriteln('*');s:=s+1;F(n-2);F(n div 2);F(n div 2);end;end;beginf(7);writeln(s);end.