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

Question

Информатика

Доминик

9 марта, 20:24

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

+5

Ответы (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.