у тебя все на Украинском!!!!!!!!!
<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 = 20000
К1+К2 = 14000
К2+К3 = 16000
К2 - ?
К2 = (К1+К2)+(К2+К3)-(К1+К2+К3) = 14000+16000-20000 = 10000
64*40*48*8=983040 бит /8/1024 = 102 КБ
Ответ: 3.
Как-то так. надеюсь подойдет...