Вычислить сумму 1-1/2+1/3-...(-1)^n+1*1/n условный оператор и операцию возведение в...

$\displaystyle s=1- \frac{1}{2}+ \frac{1}{3}+\cdots +(-1)^{n+1} \frac{1}{n}; \\ c_1=1;\quad c_n=-c_{n-1}; \quad s=\sum_{i=1}^n\frac{c_i}{n}$

// PascalABC.NET 3.1, сборка 1201 от 18.03.2016
begin
var c:=1.0;
var s:=0.0;
for var i:=1 to ReadInteger('n=') do begin
s+=c/i; c:=-c
end;
Writeln('s=',s)
end.

Тестовое решение:
n= 7
s=0.759523809523809