Дано вещественное число а. Найти такое наименьшее n, что 1+ (1/2)+(1/3)+...+(1/n)>а - Pascal ABC
Формулировка задачи:
Дано вещественное число а. Найти такое наименьшее n, что 1+ (1/2)+(1/3)+...+(1/n)>а.
Решение задачи: «Дано вещественное число а. Найти такое наименьшее n, что 1+ (1/2)+(1/3)+...+(1/n)>а»
textual
Листинг программы
print('a =')
a =int(input())
s = 1
n = 1
while s <= a:
n+=1
s+=1/n
print('n =', n, ' s =', s)