Определи значение переменной k после выполнения фрагмента программы: k :=1; for I :=1 to 5 do begin k := k + 3 * i; end;

Для определения значения переменной k после выполнения данного фрагмента программы, давайте выполним шаги поочередно.

Сначала у нас есть присвоение k := 1;. Таким образом, переменная k в начале равна 1.

Затем у нас цикл for от 1 до 5. Начнём с первой итерации (i = 1): k := k + 3 * 1; k = 1 + 3 * 1; k = 4;

На второй итерации (i = 2): k := k + 3 * 2; k = 4 + 3 * 2; k = 10;

На третьей итерации (i = 3): k := k + 3 * 3; k = 10 + 3 * 3; k = 19;

На четвёртой итерации (i = 4): k := k + 3 * 4; k = 19 + 3 * 4; k = 31;

На пятой и последней итерации (i = 5): k := k + 3 * 5; k = 31 + 3 * 5; k = 46.

Таким образом, после выполнения фрагмента программы значение переменной k будет равно 46.