Дано натуральное N. Вычислить S=1+1/22-1/23+…(-1)N/2N (программу написать)
s := 0
for i := 1 to n do
if i mod 2 = 1 then
s := s - 1/2/n
else
s := s + 1/2/n;