13. Определите, что будет напечатано в результате работы следующей программы. Var r, k: integer; Begin r := 3; for k:=4 downto 1 do r := r*2; write (r); End.

Разберем программу:

1. r := 3; - Переменной r присваивается начальное значение 3.
2. for k := 4 downto 1 do - Цикл, который выполняется для k от 4 до 1 включительно с уменьшением на 1 на каждом шаге.
3. r := r*2; - Внутри цикла r умножается на 2.

Цикл выполнится 4 раза (k = 4, 3, 2, 1). r будет изменяться следующим образом:

• Начальное значение: r = 3
• k = 4: r = 3 * 2 = 6
• k = 3: r = 6 * 2 = 12
• k = 2: r = 12 * 2 = 24
• k = 1: r = 24 * 2 = 48

В конце программы выводится значение r.