Напишите программу вычисления N-го члена последовательности

@mycroft · Регистрация: 30.06.2010

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

Напишите программу вычисления N-го члена последовательности, начинающейся с единицы, в которой каждый следующий член равен сумме обратных величин всех предыдущих;

@Puporev · 30.06.2010, 18:24

Pascal

uses crt;
var a,s:real;
    n,i,j:integer;
begin
clrscr;
write('n=');
readln(n);
a:=1;
s:=1;
for i:=2 to n do
 begin
  s:=s+a;
  a:=1/s;
 end;
write('An=',s:0:6);
readln
end.

@mycroft 0 / 0 / 0 Регистрация: 30.06.2010 Сообщений: 8
		1
	Напишите программу вычисления N-го члена последовательности 30.06.2010, 17:01. Показов 1274. Ответов 1 Метки нет (Все метки) Напишите программу вычисления N-го члена последовательности, начинающейся с единицы, в которой каждый следующий член равен сумме обратных величин всех предыдущих; 0

	30.06.2010, 18:24

Напишите программу вычисления N-го члена последовательности

Решение