1010,00100101(2) = 001 010,001 001 101(2) = 12,115(8)
1110,0101000(2) = 001 110, 010 100(2) = 16,24(8)
1000,1111001(2) = 001 000,111 100 100(2) = 10,744(8)
101011,11(2) = 101 011, 110(2) = 53,6(8)
1010,00100101(2) = 1010, 0010 0101(2) = A,25(16)
1110,0101000(2) = 1110,0101(2) = E,5(16)
1000,1111001(2) = 1000,1111 0010(2) = 8,F2(16)
101011,11(2) = 0010 1011, 1100(2) = 2B,C(16)
266(8) = 010 110 110(2) = 10110110(2)
266(16) = 0010 0110 0110(2) = 1001100110(2)
1270(8) = 001 010 111 000(2) = 1010111000(2)
1270(16) = 0001 0010 0111 0000(2) = 100100111(2)
10,23(8) = 001 000, 010 011(2) = 1000,001(2)
10,23(16) = 0001 0000, 0010 0011(2) = 10000,00100011(2)
11,1(8) = 001 001, 001(2) = 1001,001(2)
11,1(16) = 0001 0001,0001(2) = 10001,0001(2)
Для начала подсчитаем количество символов, а их 54
Дано:
x=54
b=1Байт
Vi=?
Решение:
Vi=x*b=54*1=54Байт
Если нужен ответ в битах, то просто умножим 54 на 8 и получим 432бит
просто перерисуй так мкак на рисунке
program P1;
uses
crt;
var
mas : array[1..20] of integer;
i,j,k : integer;
tmp : string;
begin
clrscr;
writeln('Start array: ');
for i := 1 to 20 do
begin
mas[i] := random(100);
write(mas[i],' ');
end;
for i := 1 to 20 do
begin
if mas[i] mod 2 = 0 then
mas[i] := 0;
end;
for i := 1 to 20 do
begin
if mas[i] = 0 then
begin
for j := 20 downto i do
if mas[j] <> 0 then
begin
k := mas[j];
mas[j] := mas[i];
mas[i] := k;
end;
end;
end;
writeln('');
writeln('Result array: ');
for i := 1 to 20 do
write(mas[i],' ');
readln(tmp);
read(tmp);
end.