10. (2 балла). Запишите значение переменной к, полученное в результате работы следующей программы. Var k, i: integer; Begin k := 4; For i := 1 to 3 do k := i + 2*k; Writeln(k); End.

Решение:

Рассмотрим выполнение программы по шагам:

• Инициализация: \(k = 4\).
• Цикл For i := 1 to 3:
• i = 1: \(k := i + 2*k\) → \(k := 1 + 2*4\) → \(k := 1 + 8 = 9\).
• i = 2: \(k := i + 2*k\) → \(k := 2 + 2*9\) → \(k := 2 + 18 = 20\).
• i = 3: \(k := i + 2*k\) → \(k := 3 + 2*20\) → \(k := 3 + 40 = 43\).
• Цикл завершён.
• Writeln(k) выводит значение k.

Ответ: 43