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

@arkadii1 · Регистрация: 01.02.2016

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

Вычислить 1/(1+1/(2+1/(3+1/(4+..n+1/n)))). Помогите решить, пожалуйста.

@arkadii1 · 01.02.2016, 22:18 **[ТС]**

все, сам решил.

Pascal

uses crt;
var n,i:integer;
s:real;
begin
repeat
writeln('N= ');
readln(n);
until n>0;
s:=1/n;
for i:=n-1 downto 1 do
s:=1/(i+s);
writeln('Sum = ', s:0:5);
readln
end.

@arkadii1 0 / 0 / 1 Регистрация: 01.02.2016 Сообщений: 4
		1
	Вычислить сумму ряда 01.02.2016, 21:54. Показов 914. Ответов 1 Метки нет (Все метки) Вычислить 1/(1+1/(2+1/(3+1/(4+..n+1/n)))). Помогите решить, пожалуйста. 0

	01.02.2016, 22:18

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

Решение