18. Определите количество символов «*», которые будут напечатаны при вызове F(6) procedure F( n: integer ); begin write('*'); if n >= 1 then begin write('*'); F(n-1); F(n div 2);…

Для определения количества символов "*" при вызове F(6) процедуры F( n: integer ) мы можем провести простой анализ.

При вызове F(6) произойдет следующее:

1. Выводится один символ "*".
2. После этого проверяется условие: n >= 1. Так как n = 6, условие выполняется.
3. Выводится еще один символ "*".
4. Затем вызывается F(n-1), то есть F(5).
5. При F(5) также будут выведены два символа "*", так как выполняется условие и происходит рекурсивный вызов.
6. При вызове же F(3) и F(2) процедура будет выполняться снова, выводя по два символа "*", как в предыдущих шагах.
7. Каждый раз при делении на 2 символы "*" выводятся для каждого числа.

Итак, при вызове F(6) процедуры F( n: integer ) будет напечатано в общей сложности 12 символов "*".