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

Question

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

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.

Comments

s:=1
for i:=1 to n do
begin

for a:=1 to i do
b:=b+2;
end;
s:=s+1/b;
end;
writeln (s);
end.

---

ну у меня кажется так же

---

Правильно, не надо трогать то, что работает!))))

---

Только увеличивать надо не прибавляя, а умножая, если точно, то не "на" 2, а "в" 2 раза.

---

какого черта ты умножаешь, а не в степень возводишь? и зачем тут вложенные циклы? боже. сейчас сделаю правильно

---

Igroman95, а как в степень возводить? Я только sqr знаю, да и тот, как я посмотрю, редко используется.

---

К сожалению, надо вставлять цикл со счетчиком.

---

Спасибо