дано число n (>0) найти сумму 1-0.5+0.25-0.125+...n паскаль абс работа ** использование...

Question

дано число n (>0) найти сумму 1-0.5+0.25-0.125+...n паскаль абс работа на использование цикла вайл, фор или рипит помогите буду блогодарен

Answer 1

Var n, i:integer;
    s, k:real;
begin
k:=0.5;
writeln('vvedy n');
readln(n);
for i:=1 to n do
k:=k+(k*0.5);
s:=1-k;
writeln(s:5:5);
end.