Знайти суму n елементів пслідовності: 1, -0. 5, 0. 25, -0. 125, … n - натуральне число, вводиться з клавіатури. Результат вивесті з шістьма знаками після коми.

Программа на языке PascalABC. NET:

begin var s: real:= 0; var n: integer:= readInteger(); for var i: integer:= 0 to (n-1) do if(i mod 2 > 0) then s:= s-power(2,-i) else s:= s+power(2,-i); writeln(s:0:6); end.

Задание выполнено!