Сколько слагаемых должно быть в сумме 1 + 1/2 + 1/3 + …+

@зеро · Регистрация: 09.12.2009

Сколько слагаемых должно быть в сумме 1 + 1/2 + 1/3 + …+ 1/k, чтобы сумма оказалась больше или равной N. Задаётся только числоN, требуется найти k.

@Puporev · 28.03.2010, 18:20

Большие n не вводи, при 15 считает долго, а при 20 вообще вылетает за тип longint. Число можно вводить целое, можно вещественное, но положительное.

Pascal

uses crt;
var k:longint;
    n,s:real;
begin
clrscr;
write('n=');
readln(n);
s:=0;k:=0;
while s<=n do
 begin
  k:=k+1;
  s:=s+1/k;
 end;
write('s=',s:0:12,'  k=',k);
readln
end.

@зеро 0 / 0 / 0 Регистрация: 09.12.2009 Сообщений: 24
		1
	Сколько слагаемых должно быть в сумме 1 + 1/2 + 1/3 + …+ 28.03.2010, 17:40. Показов 4787. Ответов 1 Метки нет (Все метки) Сколько слагаемых должно быть в сумме 1 + 1/2 + 1/3 + …+ 1/k, чтобы сумма оказалась больше или равной N. Задаётся только числоN, требуется найти k. 0

Опции темы

Сколько слагаемых должно быть в сумме 1 + 1/2 + 1/3 + …+

Решение