While14. Дано число $$A$$ ($$> 1$$). Вывести наибольшее из целых чисел $$K$$, для которых сумма $$1 + 1/2 + … + 1/K$$ будет меньше $$A$$, и саму эту сумму.
Решение от Дмитрия:
|
1 2 3 4 5 6 7 8 9 10 |
алг сумма(арг вещ A, рез цел K, вещ сум) дано A>1 нач сум:=0 K:=1 нц пока сум<A сум:=сум+(1/K) K:=K+1 кц кон |
Другие задачи из раздела While можно посмотреть здесь.
Комментарии: