В программе pascal найти сумму ряда 1 - 1/ 2 + 1/3 - 1/4 + 1/5 -…

var  i,s,p,t:double;begin  i:=1; p:=1;  repeat    t:=1/i; s:=s+p*t/i; i:=i+1  until t<=1e-5;  Writeln('Сумма ряда с точностью 0.00001 равна ',s:7:5)end.Тестовое решение:Сумма ряда с точностью 0.00001 равна 1.64492