var sum, i:integer; begin sum: =0; i:=10; while i>5 do begin sum: =sum+3; i:=1-2; end; writeln (sum) ; end.

Цель:
Понять, как работает данный кусок кода и вычислить значение переменной sum после завершения цикла while.

Объяснение:

1. Инициализация переменных:

   • sum := 0;: Переменная sum инициализируется значением 0.
   • i := 10;: Переменная i инициализируется значением 10.

2. Цикл while:

   • while i > 5 do: Цикл будет выполняться до тех пор, пока i больше 5.
   • begin: Начало блока кода, который будет повторяться.
   • sum := sum + 3;: К переменной sum прибавляется 3. Начальное значение sum равно 0, поэтому после первой итерации sum = 0 + 3 = 3.
   • i := 1 - 2;: Переменная i уменьшается на 1 и становится -1.
   • end;: Конец блока кода цикла.

3. Итог:

   • После первой итерации цикла while, sum = 3, i = -1.
   • Условие i > 5 не выполняется, так как теперь i = -1.
   • Цикл завершается.

4. Вывод значения sum:

   • writeln(sum);: Значение переменной sum выводится на экран.
   • После завершения цикла while переменная sum равна 3.

Ответ:
После выполнения данного кода значение переменной sum равно 3.