15. Определите результат выполнения программы:var i, sum: integer; begin sum: = 0; i: = 1; while i<=3 do begin sum:=sum+i; i:=i+1; end; writeln (sum); end. A) 1; B) 7; C) 9; D) 6.

var i, sum: integer; / /первая строка значит, что "i, sum" - целочисленные переменные

begin / /начало цикла

sum: = 0;

i: = 1; / /задается значение переменным

while i<=3 do begin / /данная строка означает, что пока переменная i меньше или равна 3 происходит выполнение следующего фрагмента программы

sum:=sum+i; / /значение sum равно сумме переменных sum и i (3 и 4 строки)

i:=i+1; / /i равно i+1

end; / /завершение цикла

writeln (sum); / /вывод значения переменной sum на экран

end / /завершение программы

Переходим к самой математике.

Первый цикл программы:

1) sum:=sum+i

sum=0+1=1

2) i:=i+1

i=1+1=2

Второй цикл:

1) sum=1+2=3

2) i=1+2=3

Третий цикл:

1) sum=3+3=6

2) i=3+1=4

Так как во втором цикле переменная i стала равна 4, а по условию ее значение должно быть меньше и равно 3, то программа пропускает

строку "while i<=3 do begin" и переходит сразу к выводу значения переменной sum на экран. Ответ: 6.