Определите значение переменной S после исполненья следующего куска программки:S:=0;

Цикл while i gt; 1 do begin значит что он будет производиться до тех пор, пока i gt; 1. i изначально одинаково 7, и в конце каждого исполнения число убавляется на единицу (i:=i-1). i div 2 означает разделенье числа на 2 с целым остатком. Исходя из вышесказанного имеем:

(Каждое исполнение цикла буду обозначать как )

1: 7gt;1 (Правда)

S:=0+3=3

i=6

2: 6gt;1 (Истина)

S:=3+3=6

i:=5

3: 5gt;1 (Правда)

S:=6+2=8

i:=4

4: 4gt;1 (Правда)

S:=8+2=10

i:=3

5: 3gt;1 (Правда)

S:=10+1=11

i:=2

6: 2gt;1 (Истина)

S:=11+1=12

i:=1

7: 1gt;1 (Ересь)

Вывод числа S со значением 12.

Ответ: 12.