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.

Answer 2

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

Answer 3

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

Answer 4

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

Answer 5

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

Answer 6

Спасибо