вычислите на паскаль 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.

Василиса Халцова 2019-08-17 13:13:11

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

Evgenija Korobko 2019-08-17 13:15:51

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

Денис Гольдбринг 2019-08-17 13:17:24

Верно, не надо трогать то, что работает!))))

Егор Тесликов 2019-08-17 13:27:02

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

Ванька 2019-08-17 13:36:20

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

Софья Бизянина 2019-08-17 13:42:27

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

Stefanija 2019-08-17 13:52:09

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

Семён 2019-08-17 13:54:07

Спасибо

О проекте

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

Добро пожаловать!