Question

Помогите, срочно########

Answer 1

PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018

Внимание! Если программа не работает, обновите версию!

begin

 var (s, k) := (0.0, 0);

 var n := ReadReal('N=');

 while s <= n do

 begin

   Inc(k);

   s += 1 / k

 end;

 Writeln('K=', k, ', сумма равна ', s)

end.

Пример

N= 9.73

K=9441, сумма равна 9.73008581019055