Написать программу вычисления значения S. Натуральное число N вводится с клавиатуры Pascal

Question

<img title="Написать программу вычисления значения S. Натуральное число N вводится с клавиатуры Pascal" src="//otvet.imgsmail.ru/download/ff2e012e8aed479a93873ef134ed1865_i-21.jpg" > 
 
Ниже представ¬лен рекомендуемый вид экрана во время работы программы (данные, введенные пользователем, выделены полужирным шрифтом) . 
 
N = 10 
S = 0,666992 
 
Нпписать на Паскаль

Марина Бухарова · Accepted Answer

c:=1; s:=1; 
for i:=1 to n do begin 
c:=-c/2; 
s:=s+c end;

Дмитрий Журавлев · Answer

Примерно так.. . 
read(n); 
xx:=1; 
sum:=0; 
for i:=1 to n do 
 begin 
 s:=s+xx; 
 xx:=-xx/2; 
 end; 
writeln(s);

Юлия Жарова · Answer

k:=1; r:=1; s:=1; 
for i=1 to n do 
begin 
r:=r*(-1); '1 в степени n 
k:=k*2; '2 в степени n 
s:=s+r/k; 'сумма ряда 
end 
writeln(s);