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

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.

Оцени ответ

Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!