Написать на паскале программу .
Задано натуральное число n. Вычислить сумму ряда :
S=1-1/2+1/3-1/4+1/5...+-1/n
Ответы
Ответ дал:
6
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,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.
Вас заинтересует
11 месяцев назад
11 месяцев назад
1 год назад
6 лет назад
6 лет назад
7 лет назад