Var
b:array[1..100001] of integer;
var a,c,i:integer;
begin
c:=0;
write('десятичное число: ');
readln(a);
while a<>0 do
begin
if a mod 2 = 0 then
begin
a:=a div 2;
c:=c+1;
b[c]:=0;
end;
if a mod 2 <>0 then
begin
a:=a div 2;
c:=c+1;
b[c]:=1;
end;
end;
write('двоичное число: ');
for i:=c downto 1 do
write(b[i])
end.
Для начала узнаем сколько символов в тексте 60*40*157=376800
Так как кодировка 64 битная каждий символ весит 64 бита 376800*64=24115200 бит
Переведём Биты в Байты 24115200/8=3014400
Теперь переведём Байты в Килобайты 3014400/1024=2943Килобайт и 768 байт
Переведём Килобайты в мегабайты 2943/1024=2 Мегабайта и 895 Килобайтов
Ответ: 2Мг 895Кб 768 байт в дробах выглядит так 2,874755859375
Умножаем 56000бит/с на 25 секунд и делим на 8(что-бы перевести в байты)
56000*25/8 = 175000 байт
F=(¬A+B)*A
F=¬A*A+A*B
F=A*B; при A=1;B=1
F=1*1
F=1
количество пикселей: 20 * 25 = 500
количество цветов: 16, 2⁴ = 16, 4 бита потребуется для кодирования одного пикселя
информационная емкость: 500 * 4 = 2000 бит = 250 байт ≈ 0,24 Кбайт