<span> I=K * i , i=7 бит, I=7*2048 бит
I=14
</span>
<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)Идем рвать липу
2)наливаем в чайник воду
3)ставим на плиту и ждем 5 минут
4)В кружку кладем липу
5)Снимаем чайник с плиты
6)Наливаем воду в кружку
7)Ждем пока завариться
8) Пьем чай
1.+++-
2.++++
3.++++
4.+---
5.+--+
6.----