Вычислить значение суммы

@mysteria-m · Регистрация: 26.12.2013

Author24 — интернет-сервис помощи студентам

Вычислить
$https://www.cyberforum.ru/cgi-bin/latex.cgi?\sum_{k=1}^{n}=\frac{k!}{1/2+1/3+...+1/(k+1)}$
Подсказка: в двух разных переменных храните отдельно числитель и знаменатель очередного слагаемого и на каждом шаге вычисляйте новые числитель и знаменатель через предыдущие значения.
Помогите пожалуйста вычислить((

@Puporev · 20.01.2014, 19:52

Pascal

uses crt;
var n,k:integer;
    s,c,z:real;
begin
clrscr;
write('n=');
readln(n);
c:=1;
z:=1/2;
s:=c/z;
for k:=2 to n do
 begin
  c:=c*k;
  z:=z+1/(k+1);
  s:=s+c/z
 end;
write('S=',s:0:3);
readln
end.

@mysteria-m 3 / 3 / 5 Регистрация: 26.12.2013 Сообщений: 197
		1
	Вычислить значение суммы 20.01.2014, 19:13. Показов 1097. Ответов 1 Метки нет (Все метки) Вычислить $https://www.cyberforum.ru/cgi-bin/latex.cgi?\sum_{k=1}^{n}=\frac{k!}{1/2+1/3+...+1/(k+1)}$ Подсказка: в двух разных переменных храните отдельно числитель и знаменатель очередного слагаемого и на каждом шаге вычисляйте новые числитель и знаменатель через предыдущие значения. Помогите пожалуйста вычислить(( 0

	20.01.2014, 19:52

Вычислить значение суммы

Решение