Дано вещественное число а. Найти такое наименьшее m, при котором: 1 + 1/2+1/3 + ... + 1/m>a

program zz1;

var m:integer; / / вводим переменную целого типа

a, r:real; / / вводим переменную вещественного типа

begin

write (' введите заданное вещественное число '); / / вводим с клавиатуры вещественное число

read (a);

while r < a do / / организуем цикл, пока сумма ряда не станет больше заданного числа

begin

m:=m+1; / / увеличиваем m на единицу

r:=r + 1/m; / / вычисляем сумму чисел ряда

end;

write (' найденное наименьшее m = ', m); / / выводим ответ

end.