Question

Ниже записаны две рекурсивные процедуры, f и g: procedure f(n: integer); forward; procedure g(n: integer); forward; procedure f(n: integer); begin writeln('*'); if n > 0 then g(n - 1); end; procedure g(n: integer); begin writeln('*'); if n > 1 then f(n - 2); end; сколько символов «звёздочка» будет напечатано на экране при выполнении вызова f(13)?

Answer 1

//полный код
procedure F(n: integer); forward;

procedure G(n: integer); forward;

procedure F(n: integer);
begin
    writeln('*');
    if n > 0 then
        G(n - 1);
end;

procedure G(n: integer);
begin
    writeln('*');
    if n > 1 then
        F(n - 2);
end;

begin
    F(13);
end.

Вывод
*
*
*
*
*
*
*
*
*
*
 

походу 10 звездочек