Var n,i:integer; f:longint; s:real;
begin
write('n = ');
readln(n);
f:=1; s:=2;
for i:=2 to n do
begin
f:=f*i;
s:=s+1/f;
end;
writeln('s = ',s);
end.
Пример:
n = 10
s = 2.71828180114638
7680 байт/1024=7,5 Кбайт,
75776 байт/1024= 74 Кбайт
700000 байт/1024=683,59 Кбайт
2Мбайта *1024=2048 Кбайт
400 Мбайт * 1024= 409600 Кбайт
5 Гбайт * 1024 =5120 Мбайт * 1024 = 5242880 Кбайт
300 Гбайт *1024 = 307200 Мбайт * 1024 = 314572800 Кбайт
101100110 будет если 358 перевести в двоичную