Составить программу для вычисления суммы S=1/2+1/2^2 + ... + 1/2^ (10.)

Question

Информатика

Никандр

19 февраля, 19:32

Составить программу для вычисления суммы S=1/2+1/2^2 + ... + 1/2^ (10.)

+5

Ответы (1)

Знаете ответ на вопрос?

Вака · Answer 1

Извиняюсь.

Var i, n:integer;

s: real;

Begin

Writeln ('Число слагаемых - ') ;

readln (n) ;

for i:=1 to n do s:=s+1/i;

writeln ('s = ', s) ;

End.