Неопределённость информации уменьшается в 3*3=9 раз, и такое кол-во информации кодируется минимум 4 битами.
1шаг алгоритма.
а) <span>записывается исходная цепочка символов, после нее записывается исходная цепочка символов в обратном порядке
КОМ+МОК = КОММОК
б) </span><span>затем записывается буква, следующая в русском алфавите за той буквой, которая в исходной цепочке стояла на последнем месте
(за буквой М в русском алфавите следует буква Н)
КОММОК+Н = </span>КОММОКН<span>
2 шаг алгоритма.
</span>а) записывается исходная цепочка символов, после нее записывается исходная цепочка символов в обратном порядке
КОММОКН+НКОММОК = КОММОКННКОММОК
б) затем записывается буква, следующая в русском алфавите за той буквой, которая в исходной цепочке стояла на последнем месте
(за буквой Н в русском алфавите следует буква О)
КОММОКННКОММОК+О = КОММОКННКОММОКО
Ответ: количество букв О в полученной последовательности = 5
Ответ: 3
Чтобы узнать куда переместился Чертёжник надо сложить координаты по осям и умножить на количество повторов.
Сложим координаты по оси X:
x = 11 * (–3 + 7 + 1)
x = 11 * 5
x = 55
Сложим координаты по оси Y:
y = 11 * (–3 + (–3) + 5)
y = 11 * (–3 – 3 + 5)
y = 11 * (–1)
y = –11
Таким образом, Чертёжник окажется в точке (55, –11). Следовательно, для того, чтобы Чертёжник вернулся в исходную точку ему нужно выполнить обратную команду Сместиться на (–55, 11). (Чтобы Чертёжник вернулся в исходную точку координаты в сумме должны давать 0.)
Var
a,b:array[1..7]of integer;
i:integer;
begin
for i:=1 to 7 do a[i]:=random(15)+1;
b[1]:=a[7];
for i:=2 to 7 do b[i]:=a[i-1];
for i:=1 to 7 do writeln(a[i]:4,b[i]:4);
<span>end. </span>