Разобрать программу запишите подряд без пробелов и разделителей вес числа, которые будут напечатаны при выполнении вызова f9 procedure f(n: integer); begin if n> 0 then begin write (n); f(n-2); f(n div 4); end end;

Procedure f(n: integer); begin   if n> 0 then begin       write (n);       f(n-2);       f(n div 4);       end end; begin   f(9); end. на выходе будет 97531112 если нужна трассировка, её можно сделать примерно так: procedure f(n: integer); begin   writeln('вход');   if n> 0 then begin       writeln ('в выходную строку: ',n);       writeln('вызов f(n-2)');       f(n-2);       writeln('вызов f(n div 4)');       f(n div 4);       end;       writeln('выход') end; begin   f(9); end. результат трассировки: вход в выходную строку: 9 вызов f(n-2) вход в выходную строку: 7 вызов f(n-2) вход в выходную строку: 5 вызов f(n-2) вход в выходную строку: 3 вызов f(n-2) вход в выходную строку: 1 вызов f(n-2) вход выход вызов f(n div 4) вход выход выход вызов f(n div 4) вход выход выход вызов f(n div 4) вход в выходную строку: 1 вызов f(n-2) вход выход вызов f(n div 4) вход выход выход выход вызов f(n div 4) вход в выходную строку: 1 вызов f(n-2) вход выход вызов f(n div 4) вход выход выход выход вызов f(n div 4) вход в выходную строку: 2 вызов f(n-2) вход выход вызов f(n div 4) вход выход выход выход

Протокол