<h3>PascalABC.NET 3.4.2, сборка 1814 от 02.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var e:=0.0001;
var x:=ReadReal;
var a:=(x-1)/x;
var (s,n):=(a,2);
repeat
a*=(x-1)/x*(n-1)/n;
s+=a;
n+=1
until a<=e/n;
Writeln(log(x),' ',s)
end.
1)Пишешь Январь в 1 клетке
2)внизу этой клетке нажимаешь мышкой
3)После вверху нажимаешь на f(x)
4) находишь фунции календарь
5)нажимаешь а там всё будет понятно
Давно не работал но как-то так было
///////////////////////////////////////////
Купить макароны ⇒ Довести воду до кипения ⇒ Бросить макароны в воду ⇒ посолить ⇒ дождаться полной готовки макарон
pow(a,b) - возведение a в степень b
pow(m,1.0/3)