Цикл: Найти сумму ряда с заданной точностью e = 0,001...

@alexletss · Регистрация: 03.10.2018

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

Найти сумму ряда с заданной точностью e = 0.001, общий член которого
a_n = n! / nⁿ

@Puporev · 05.12.2018, 09:37

Pascal

const e=0.001;
var n:integer;
    f,s:real;
begin
n:=1;
f:=1;
s:=f;
while f/power(n,n)>e do
 begin
  n:=n+1;
  f:=f*n;
  s:=s+f/power(n,n);
 end;
write('S=',s:0:3)
end.

@alexletss 0 / 0 / 0 Регистрация: 03.10.2018 Сообщений: 5
		1
	Цикл: Найти сумму ряда с заданной точностью e = 0,001... 05.12.2018, 08:38. Показов 2227. Ответов 1 Метки нет (Все метки) Найти сумму ряда с заданной точностью e = 0.001, общий член которого a_n = n! / nⁿ 0

	05.12.2018, 09:37