Вот перевод в десятичную систему:
1110(2) = 1*2^3+1*2^2+1*2^1+0*2^0 = 8+4+2 = 14
1001(2) = 1*2^3+0*2^2+0*2^1+1*2^0 = 8+0+0+1 = 9
14+9=23
Это программа должна выдать сразу? До какого значения? Конечная цифра задается с клавиатуры?
В два байта может влезть число со знаком от -32768 до 32767.
В памяти компьютера целое число может занимать 1, 2, 4, 8 байт.
Соответственно на это число требуется 4 байта или 4*8=32 двоичных ячеек.
А вообще это число можно было бы вместить в 18 двоичных ячеек.
<span>переведем число 12 в двоичную СС и получим 1100.
1100 не удовлетворяет условию.
Троичная CC:
1*3²+1*3+0=12!
Ответ:троичная СС</span>
Var
a: array[1..6]of integer;
i,m: integer;
begin
for i:=1 to 6 do
read(a[i]);
writeln(' ');
For i:=2 to 6 do
if (a[i]<0) and ((i mod 2) =0) then
for m:=i downto 2 do
swap(a[m],a[m-1]); for i:=1 to 6 do
write(a[i]:2);
<span>end.
abc pascal</span>