Вычислите на паскаль s=1+1/2+1/4+1/8 ... 1 / (2^N)

Question

Информатика

Авдий

21 января, 07:12

Вычислите на паскаль s=1+1/2+1/4+1/8 ... 1 / (2^N)

+3

Ответы (1)

Знаете ответ?

Арсеньич · Answer 1

Возможны небольшие ошибки

var a, b, s, n, i: integer;

begin

readln (n) ;

s:=1

for i:=1 to n do

begin

b:=0;

for a:=1 to i do

b:=b+2;

end;

s:=s+1/b;

end;

writeln (s) ;

end.