PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018
Внимание! Если программа не работает, обновите версию!
begin
var (s, k) := (0.0, 0);
var n := ReadReal('N=');
while s <= n do</p>
begin
Inc(k);
s += 1 / k
end;
Writeln('K=', k, ', сумма равна ', s)
end.
Пример
N= 9.73
K=9441, сумма равна 9.73008581019055