Для данного положительного вещественного числа A нужно отыскать наибольшее целое число

Для заданного положительного вещественного числа A нужно найти наибольшее целое число K, при котором производится неравенство 1+1/2+...+1/Klt;A . Для решения этой задачки ученик написал такую программу:
var a, s: real;
k: integer;
begin
read(a);
k := 1;
s := 1;
while s lt; a do begin
s := s + 1.0/k;
k := k + 1;
end;
write(k);
end.
Поочередно выполните следующее.
1. Напишите, что выведет эта программка при вводе числа 1.2.
2. Приведите пример числа, при вводе которого программка выведет верный ответ.
3. Найдите в программе все оплошности (их может быть одна либо несколько). Для каждой оплошности выпишите строчку, в которой она допущена, и приведите эту же строку в исправленном виде.

Вадим Вахтомин 2019-03-20 15:19:41

Что за неравенство?

Аня Садофова 2019-03-20 15:20:56

1 + 1/2+ ...+1/K < A