Вывести наименьшее из целых чисел N, для которых сумма будет больше A

@777_777 · Регистрация: 02.10.2010

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

Дано вещественное число А(>1). Вывести наименьшее из целых чисел N, для которых сумма 1+1/2+... +1/N будет больше A, и саму эту сумму.

Помогите! Пожалуйста!

@Alexar Makken · 16.11.2010, 21:45

В каком виде вводить N ???

@777_777 · 16.11.2010, 22:03 **[ТС]**

Число N больше 0

@teleport · 16.11.2010, 22:21

и у меня вопрос почему если ввести большое число то пишет что слишком много вложенных вызовов подпрограмм.
что это за ограничения на вызов подпрограмм. кто знает ответьте

Pascal

uses crt;
var z,a:real; n:integer;
function f(n:real):real;
 begin
     if n=1 then f:=1 else f:=1/n+f(n-1);
 end;
begin
     readln(a);
     n:=1;
     while f(n)<=a do
      inc(n);
      writeln(f(n));
writeln(n);
end.

@777_777 · 16.11.2010, 22:29 **[ТС]**

Спасибо большое!

@777_777 0 / 0 / 0 Регистрация: 02.10.2010 Сообщений: 19
		1
	Вывести наименьшее из целых чисел N, для которых сумма будет больше A 16.11.2010, 21:15. Показов 2666. Ответов 4 Метки нет (Все метки) Дано вещественное число А(>1). Вывести наименьшее из целых чисел N, для которых сумма 1+1/2+... +1/N будет больше A, и саму эту сумму. Помогите! Пожалуйста! 0

@Alexar Makken 13 / 13 / 4 Регистрация: 14.11.2010 Сообщений: 54
	16.11.2010, 21:45	2
	В каком виде вводить N ??? 0

@777_777 0 / 0 / 0 Регистрация: 02.10.2010 Сообщений: 19
	16.11.2010, 22:03 [ТС]	3
	Число N больше 0 0

@777_777 0 / 0 / 0 Регистрация: 02.10.2010 Сообщений: 19
	16.11.2010, 22:29 [ТС]	5
	Спасибо большое! 0

Вывести наименьшее из целых чисел N, для которых сумма будет больше A

Решение