Дано вещественное число а . Найти такое наименьшее 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.