1 байт = 8 бит.
128 бит = 128 / 8 байт = 16 байт
1 Кбайт = 1024 байт = 8192 бит
2 цвета: ln(2)/ln(2) = 1 бит
4 цвета: ln(4)/ln(2) = 2 бита
8 цветов: ln(8)/ln(2) = 3 бита
16 цветов: ln(16)/ln(2) = 4 бита
Число уже переведено в16сс,т.к содержит A и F
Var
chisl, znam, multi: real;
begin
multi := 1;
chisl := 1;
znam := 2;
for var k := 1 to 9 do
begin
multi *= chisl / znam;
chisl += 1;
znam += 1;
end;
write(multi);
end.