1-16 = 2^4 т.е. 4 бит на символ
2-составить таблицу двоичного кода
какого именно?
3-найти информационный обьем двоичного кода
а-111000 - 6 бит
б-1010 - 4 бита
в-101- 3 бита
г-1010101111 - 10 бит
4-Перевести обьем из одной единице измерения в другую
а 70 мб-бит = 70*1024*1024*8 бит
450 мб-бит = 450*1024*1024*8 бит
2гб-байт = 2*1024*1024*1024 байт
1.8 гб-байт = 1,8*1024*1024*1024 байт
5-Минимальная мощность алфавита - 2 символа наверное
6-Минимальный информационный обьем 1 символа - 1 бит
2048*1536=>3 145 728*3=>9 437 184 byte=>9 437,184 Kb=>9,437184 Mb
Ответ:
Объяснение:
Var a,b,x,k,j : Integer;
Begin
Read (a);
Read(b);
Read(x);
While x<>0 do
Begin
If x mod 10=a then k:=k+1;
If x mod 10=b then j:=j+1;
X:=x div 10;
End;
If k=j then WriteLn('одинаковое количество ');
If k>j then WriteLn(символов а больше)
Else
WriteLn (символов b больше)
{Задание а}
var
i:integer;
begin
for i := 90 downto 65 do
writeln(chr(i), ' ', chr(i), ' ', chr(i), ' ', chr(i));
end.
{Задание б}
var
i, j:integer;
begin
for i := 90 downto 65 do
begin
for j := 90 downto 65 + 90 - i do
write(chr(j), ' ');
writeln;
end;
end.
{Задание в}
var
i, j:integer;
begin
for i := 1 to 9 do
begin
for j := 1 to 9 do
if i = j then
write(i, ' ')
else
write('0 ');
writeln;
end;
end.
Program lol (input, output);
var a, b, I:integer;
begin
write ('Введите число а: ');
read (a);
write ('Ввндите число b: ');
read (b);
for I:=-10 to 0 do
begin
if a=I then
writeln ('Число а пренадлежит промежтку');
if b=I then
writeln ('Число b пренадлежит промежтку');
end;
end.