Вычислить сумму ряда

@WaltZZ1 · Регистрация: 12.05.2018

Дано действительное число a и натуральное число n.
Вычислить: 1/a +1/(a*(a+1)) + ...+ 1/(a*(a+1)*...*(a+n))
Paskal

@Puporev · 12.05.2018, 11:51

Pascal

var n,i:integer;
     a,x,s:real;
..........................
s:=0;
x:=1;
for i:=1 to n do
 begin
  x:=x*(a+i-1);
  s:=s+1/x;
 end;

@WaltZZ1 · 12.05.2018, 15:31 **[ТС]**

спасибо вам

@WaltZZ1 0 / 0 / 0 Регистрация: 12.05.2018 Сообщений: 6
		1
	Вычислить сумму ряда 12.05.2018, 11:45. Показов 964. Ответов 2 Метки нет (Все метки) Дано действительное число a и натуральное число n. Вычислить: 1/a +1/(a(a+1)) + ...+ 1/(a(a+1)...(a+n)) Paskal 0

@WaltZZ1 0 / 0 / 0 Регистрация: 12.05.2018 Сообщений: 6
	12.05.2018, 15:31 [ТС]	3
	спасибо вам 0

Опции темы

Решение