Четырехзначное шестнадцатиричное число содержит четыре двоичные тетрады, старшая (левая) из которых может быть неполной. Наименьшее число будет иметь 1 в старшей тетраде и за ней должны следовать пять нулей. Получаем:
1 0000 0111 1111(2)=107F(16)
Решение на фотке.........................................
//PascalABC.Net 3.0, сборка 1064
var
a:array[1..7] of integer;
i:integer;
begin
Randomize;
Write('Исходный массив: ');
for i:=1 to 6 do begin
a[i]:=Random(20);
Write(a[i],' ')
end;
Writeln;
for i:=6 downto 3 do a[i+1]:=a[i];
Write('Введите значение вставляемого элемента: '); Read(a[3]);
Write('Результирующий массив: ');
for i:=1 to 7 do Write(a[i],' ');
Writeln
end.
<em><u>Тестовое решение:</u></em>
Исходный массив: 8 2 5 0 6 17
Введите значение вставляемого элемента: -5
Результирующий массив: 8 2 -5 5 0 6 17
Найдем координаты, в которые переместился Чертежник: суммируем координаты "x" вместе с "x", "y" вместе с "y". При этом, сумму каждой оси умножаем на "4", так как цикл повторяется четыре раза.
x = 4*(2 + (-2) + (-2)) = 4*(-2) = -8.
y = 4*(3 + 1 + (-2)) = 4*2 = 8.
Чтобы Чертежник вернулся в исходную точку, его координаты должны стать (0,0). Для этого полученные значения "x" и "y" умножаем на "-1". Получаем команду "Сместиться на (8,-8)".
Ответ: 4.
Var A : Integer;
Begin
A:=123;
Writeln(A div 100+A div 10 mod 10+A mod 10);
end.