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

Категория: Delphi/Pascal
2013-03-10 22:00:19
теги: сумма, число, меньшее