Question

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

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.