Определить значение переменной s после выполнения следующих операторов, пояснить: s: =0; i: =1; while i> 1 do begin s: =s+1/i; i: =i-1; end; и как правильно написать решение? буду !

Для решения задачи достаточно знать правила работы всех используемых в данном фрагменте операторов.
Вначале выполняются присваивания s:=0; i:=1;
Затем начинает выполняться цикл, в котором проверяется условие i>1. При подстановке в условие значения i получим 1>1. Это условие не выполняется (выражение имеет значение false), значит не будет выполняться и тело цикла begin s:=s+1/I; i:=i-1; end;
Следовательно, значение переменной S останется = 0.