3 Кб=3*1024=3072 байт
4 Мб=4*1024 кбайт=4*1024*1024 байт=2*1024*1024*8 бит=16777216 бит
16384 бит=16384/8=2048 байт
2048 байт=2048/1024=2 Кбайт
15400 байт=15400/1024=(приближ)15 кб (=1925/128)
Const eps=0.001;
var x,xi,an,s:real; i,f:integer;
begin
readln(x);
xi:=1; f:=1; i:=0;
an:=xi/f; s:=an;
while abs(an)>eps do
begin
i:=i+1;
f:=f*i;
xi:=xi*x;
an:=xi/f;
s:=s+an;
end;
writeln('s = ',s:6:4,' e^',x:0:1,' = ',exp(x):6:4);
end.
Пример:
0.9
<span>s = 2.4595 e^0.9 = 2.4596</span>