Question

Помогите решить в Паскале
Вычислить: у=1-1/1!+1/2!-1/3!+...1/n!.Значение n задать вводом

Answer 1

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.

Answer 2

Основная проблема выполнения задания была в поиске способа вычисления факториала дробного числа и я не уверен в найденном способе, но если он верен, то программа работает верно, если возникнут проблемы - пишите.

Answer 3

Она не работает)И как-то надо решиться без mod.