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

@Zubra · Регистрация: 08.07.2012

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

@Reveng · 10.07.2012, 12:18

Pascal

uses crt;
var summa: real;
    A: integer;
    K: integer;
BEGIN
ClrScr;
Write('A = ');
Readln(A);
Summa := 0;
k := 0;
while Summa < A do
 begin
 k := k + 1;
 Summa := Summa + 1/k;
 end;
Summa := Summa - 1/k;
k := k - 1;
Write('k = ', k, ' Summa = ', Summa:0:3);
readln
END.

@Zubra 0 / 0 / 0 Регистрация: 08.07.2012 Сообщений: 11
		1
	Дано число A (>1). Вывести найбольшее из целых чисел К, для которых сумма 1+1/2+.+1/k будет меньше А и саму эту сумму 10.07.2012, 12:06. Показов 17506. Ответов 1 Метки нет (Все метки) Дано число A (>1). Вывести найбольшее из целых чисел К, для которых сумма 1+1/2+...+1/k будет меньше А и саму эту сумму. 0

Опции темы

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

Решение