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

Решение от Дмитрия:

Другие задачи из раздела While можно посмотреть здесь.