Помогите пожалуйста
Среда программирования "КуМир"
В принципе, разберусь и в паскале, если вам будет легче

Вероятно, можно просто удвоить это число

Или нет

var i,n,k: integer; s: real; begin write('n = '); readln(n); k:=1; s:=0; for i:=1 to n do begin s:=s+(k/i); k:=-k; end; writeln('сумма: ',s); end.

Блин, точно

Всё же элементарно

3var n: integer;s: real;begins:=0;n:=1;while n <= 3*3*3*3*3*3*3*3 do begins:= s+1/n;n:= n*3;end;writeln(s);end.4var a: integer;s: real;begins:=1;readln(a);for var i:=1 to a do begins:= s-1/(i+1);s:= s+1/(i+2);end;writeln(s);end.