Написать на паскале программу . Задано натуральное число n. Вычислить сумму ряда : S=1-1/2+1/3-1/4+1/5...+-1/n
Написать на паскале программу .
Задано натуральное число 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.
Не нашли ответ?
Похожие вопросы