S=1+1/1!+1/2!+1/3!+...1/2n! Пожалуйста помогите нужно решить уровнение
S=1+1/1!+1/2!+1/3!+...1/2n! Пожалуйста помогите нужно решить уровнение
Гость
Ответ(ы) на вопрос:
Гость Function fac(a:integer):int64;
Var i,b:integer;
Begin
b:=1;
for i:= 1 to a do
b:=b*i;
fac:=b;
End;
Var
i,n:integer; s:real;
Begin
s:=1;
Write('Введите число n: ');
Readln(n);
for i:= 1 to 2*n do
s:=s+1/fac(i);
Write(s);
End.
Не нашли ответ?
Похожие вопросы