Вычислить сумму ряда до n количества значений S=1 + 1/2+1/4+1 / (8) ...

напишите программу в паскале

Question

Информатика

Доминик

1 апреля, 15:46

Вычислить сумму ряда до n количества значений S=1 + 1/2+1/4+1 / (8) ...

напишите программу в паскале

+4

Ответы (1)

Знаете ответ?

Аскольд · Answer 1

Не очень корректная постановка задачи, но понять можно.

var n, i:integer; s, a:real;

begin

write ('n=') ; readln (n) ;

s:=1; a:=1;

for i:=2 to n do

begin

a:=a*2; s:=s+1/a;

end;

writeln ('s=', s:6:4) ;

end.

Вычислить сумму ряда до n количества значений S=1 + 1/2+1/4+1 / (8) ...напишите программу в паскале

Вычислить сумму ряда до n количества значений S=1 + 1/2+1/4+1 / (8) ...

напишите программу в паскале