Помогите решить в Паскале Вычислить: у=1-1/1!+1/2!-1/3!+...1/n!.Значение n задать вводом
Помогите решить в Паскале
Вычислить: у=1-1/1!+1/2!-1/3!+...1/n!.Значение n задать вводом
Гость
Ответ(ы) на вопрос:
Гостьvar
n,i:integer;
s:real;
begin
s:=1;
readln(n);
for i:=1 to n do
if i mod 2 = 1 then
s:=s-i*ln(2)
else
s:=s+i*ln(2);
writeln(s);
end.
Не нашли ответ?
Похожие вопросы