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

Question

Информатика

Ирма

15 декабря, 00:18

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

+4

Ответы (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.