<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 лист принеси листья домой высуши лист
Дано:
П+В=14200
П=9700
П*В=5100
Найти: В-?
Решение:
В=(П+В)-П+П*В=14200-9700+5100=9600
ответ 9600