МНЕ СЕГОДНЯ НУЖНО СДАТЬ
ВО ЖИЗНИ И СМЕРТИ
1. В одной из кодировок Unicode каждый символ кодируется 2 байтами. Вася написал
текст (в нем нет лишних пробелов):
Геометрия, физика, информатика, химия, биология, история, МХК - школьные
предметы
Ученик вычеркнул из списка название одного предмета. Заодно он вычеркнул ставшие лишними запятые и пробелы - два пробела не должны идти подряд. При этом размер нового предложения в данной кодировке оказался на 128 бит меньше, чем размер исходного предложения. Напишите в ответе вычеркнутое название школьного предмета.
ответ:
От разведчика было получено сообщение:
1011001100100110111
В этом сообщении зашифрован пароль - последовательность русских букв. В пароле
использовались только буквы Т. О, Н, Л. К, Б; буква кодировалась двоичным словом
по такой таблице:
O
111 110
00
100
K 01 101
Расшифруйте сообщение. Запишите в ответе пароль. ответ:
3. Напишите наибольшее число х для которого ложно высказывание: (x > 82) ИЛИ НЕ (х чётное). ответ:
4. Между населёнными пунктами А, В, С, D, E, F построены дороги, протяжённость
которых (в километрах) приведена в таблице.
A
D
E
F
10
B
10
10
D E
10
Определите длину кратчайшего пути между пунктами А и F, проходящего через пункт В. Передвигаться можно только по дорогам, протяженность которых указана в
таблице.
ответ:
Приведём все степени к основанию 2
2^3702-2^468+2^1620-108
-108 можно представить как -128 + 16 + 4
2^3702-2^468+2^1620-2^7 + 2^4 + 2^2
Теперь выстраиваем степени в порядке убывания:
2^3702+2^1620-2^468-2^7 + 2^4 + 2^2
В выражении два вычитания подряд, избавимся от этого, заменив -2^468 на -2^469 + 2^468
2^3702+2^1620 -2^469+2^468-2^7 + 2^4 + 2^2
2^3702 - 1 единица
2^4 - 1 единица
2^2 - 1 единица
Количество единиц в вычитаниях будет равно разнице степеней. Например 1000000-100=1111
2^1620 -2^469 - количеств единиц 1620-469 = 1151
2^468-2^7 - количество единиц 468-7 = 461
Общее количество единиц равно 3+1151+461 = 1615
procedure PrintMatrix(a: array[,] of integer);
begin
for var i := a.GetLowerBound(0) to a.GetUpperBound(0) do
begin
writeln;
for var j := a.GetLowerBound(1) to a.GetUpperBound(1) do
write(a[i, j], ' ');
end;
writeln;
end;
begin
var a := MatrixRandom(9, 9, 10, 99);
PrintMatrix(a);
var i := (a.GetLowerBound(0) + a.GetUpperBound(0)) div 2 + (a.GetLowerBound(0) + a.GetUpperBound(0)) mod 2;
var j := (a.GetLowerBound(1) + a.GetUpperBound(1)) div 2 + (a.GetLowerBound(1) + a.GetUpperBound(1)) mod 2;
writeln('A[', i, ', ', j, '] = ', a[i, j]);
end.