Var k,d: integer; begin d:=100; for k:=5 to 12 do begin d:= d - 6; d:= d + 8; end;...

Ответ:

116

Объяснение:

d = 100

для k от 5 до 12 выполнить

Действия в цикле:

1) d = d - 6

2) d = d + 8

Вывод d

Цикл выполнится 8 раз

количество повторов в цикле равно конечное значение (12) переменной счётчика (k) минус начальное значение (5) переменной счётчика (k) плюс 1

количество повторов в цикле = 12 - 5 + 1 = 7 + 1 = 8

В цикле переменная d сначала уменьшается на 6, а затем увеличивается на 8.

В сумме эти действия ( $-6 + 8 = 2$ ) увеличивают переменную d на 2.

Следовательно за весь цикл переменная d увеличится на 2 * 8.

Т.к. в начале программы d = 100, то

d = 100 + 2 * 8 = 100 + 16 = 116