Помогите решить в Паскале Вычислить: у=1-1/1!+1/2!-1/3!+...1/n!.Значение n задать вводом
Answers & Comments
maksview
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.
1 votes Thanks 0
maksview
Основная проблема выполнения задания была в поиске способа вычисления факториала дробного числа и я не уверен в найденном способе, но если он верен, то программа работает верно, если возникнут проблемы - пишите.
NastasyaSin
Она не работает)И как-то надо решиться без mod.
Answers & Comments
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.