program rek; procedure F(n: integer); begin if n>0 then begin F(n-4); writeln(n); F(n div 3) end; end; begin F(9) end.

Ответ: 1 5 1 9 3 1

Разбираемся:

Программа рекурсивно вызывает функцию F(n), которая выводит число n, если оно больше 0. Разберем, как это работает для F(9):

1. F(9): 9 > 0, поэтому выполняются следующие действия:
2. F(9 - 4) = F(5)
3. F(5): 5 > 0, поэтому выполняются следующие действия:
4. F(5 - 4) = F(1)
5. F(1): 1 > 0, поэтому выполняются следующие действия:
6. F(1 - 4) = F(-3)
7. F(-3): -3 > 0 - ложь, поэтому ничего не происходит, и вызов функции завершается.
8. Возвращаемся к F(1): выводим 1, затем вызываем F(1 div 3) = F(0)
9. F(0): 0 > 0 - ложь, поэтому ничего не происходит, и вызов функции завершается.
10. Возвращаемся к F(5): выводим 5, затем вызываем F(5 div 3) = F(1)
11. F(1): 1 > 0, поэтому выполняются следующие действия:
12. F(1 - 4) = F(-3)
13. F(-3): -3 > 0 - ложь, поэтому ничего не происходит, и вызов функции завершается.
14. Возвращаемся к F(1): выводим 1, затем вызываем F(1 div 3) = F(0)
15. F(0): 0 > 0 - ложь, поэтому ничего не происходит, и вызов функции завершается.
16. Возвращаемся к F(9): выводим 9, затем вызываем F(9 div 3) = F(3)
17. F(3): 3 > 0, поэтому выполняются следующие действия:
18. F(3 - 4) = F(-1)
19. F(-1): -1 > 0 - ложь, поэтому ничего не происходит, и вызов функции завершается.
20. Возвращаемся к F(3): выводим 3, затем вызываем F(3 div 3) = F(1)
21. F(1): 1 > 0, поэтому выполняются следующие действия:
22. F(1 - 4) = F(-3)
23. F(-3): -3 > 0 - ложь, поэтому ничего не происходит, и вызов функции завершается.
24. Возвращаемся к F(1): выводим 1, затем вызываем F(1 div 3) = F(0)
25. F(0): 0 > 0 - ложь, поэтому ничего не происходит, и вызов функции завершается.

Ответ: 1 5 1 9 3 1