Написать на паскале программу.

Задано натуральное число n. Вычислить сумму ряда:

S=1-1/2+1/3-1/4+1/5 ... + - 1/n

Question

Белка

11 марта, 21:57

+5

Ответы (1)

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

Прокл · Answer 1

Var

n, i: integer;

s: real;

begin

s:=0;

readln (n) ;

for i:=1 to n do

if i mod 2=0 then

s:=s-1/i

else

s:=s+1/i;

write (s) ;

end.

Написать на паскале программу.Задано натуральное число n. Вычислить сумму ряда:S=1-1/2+1/3-1/4+1/5 ... + - 1/n