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

Возможны небольшие ошибкиvar a,b,s,n,i: integer;beginreadln (n);s:=1for i:=1 to n dobeginb:=0; for a:=1 to i do b:=b+2; end;s:=s+1/b;end;writeln (s);end.