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.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы