Question

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

Answer 1

$\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