ИнформатикаПомогите,ПожалуйстаОпределите значения переменной s после исполнения куска

Ответ:

Изъясненье:

s:=0; i:=0;

while ilt;5 do i:=i+1; s:=s+1/i;

б) s:=0; i:=1;

while igt;1 do

begin

s:=s+1/i; i:=i-1

end;

в) s:=0; i:=1;

repeat

s:=s+1/i;

i:=i-1

until ilt;=1;

г) s:=1; n:=1;

for i:=2 to n do s:=s+1/i;

Ответ:

Разъясненье:

) s:=0; i:=0;

while ilt;5 do i:=i+1; s:=s+1/i;

б) s:=0; i:=1;

while igt;1 do

begin

s:=s+1/i; i:=i-1

end;

в) s:=0; i:=1;

repeat

s:=s+1/i;

i:=i-1

until ilt;=1;

г) s:=1; n:=1;

for i:=2 to n do s:=s+1/i;