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

Возможны небольшие ошибки
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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.