13) Определите значение переменной s после выполнения следующего фрагмента программы: n := 14; s := 0; while n <= 18 do begin s := s + 25; n := n + 1 end;

125

Объяснение:

n = 14       s = 0

пока условие n <= 18 истинно (да) выполнить

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

1) s = s + 25

2) n = n + 1

Переменная n каждый повтор цикла увеличивается на единицу. Как только она станет больше 18, то цикл закончится.

Цикл выполнится 5 раз (18 - 14 + 1 = 5)

Переменная s каждый повтор цикла увеличивается на одно и тоже число (25). За весь цикл она увеличится на 25 * 5

Т.к. вначале s = 0, то

s = 0 + 25 * 5 = 0 + 125 = 125