Определите значение переменной S после исполнения последующих операторов: S:=0; i:=0; while

1) S:=0; i:=0; После исполненья этих операторов переменным s и i присваиваются исходные значения одинаковые 0.

2) while ilt;5 do i:=i+1; При исполненьи цикла на каждом шаге увеличиваем значение переменной i на 1, до тех пор пока i  не станет одинаково 5, т.е при выходе из цикла получим i = 5.

3) S:=S+1/i; Подставим в формулу значения переменной i и s , получим: s = 0 + 1/5 = 0.2.

Ответ: S = 0.2