;-; бухгалтер секретной шпионской организации хранил свои отчеты в зашифрованном виде. во-первых, все вычисления он записывал в системе исчисления с основанием 7, целыми положительными числами. а, во- вторых, каждую цифру обозначал соответствующей латинской буквой. хакеры перехватили одну из шифровок бухгалтера, передаваемую в центр и попытались расшифровать. им было известно: шифровка состоит из слов yyx, xyy, zxz ; при этом xyy – yyx = zxz и x> y.

 XYY
-YYX

 ZXZ

Y-Y в среднем разряде, конечно же, даст 0. Можно ли считать, что Х=0? Нет, по условию X>Y, а Y не может быть отрицательным. Остается предположить, что от Y для вычитания в младшем разряде "заняли единичку", а для вычитания в среднем разряде тоже "заняли единичку" в старшем разряде. В семиричной системе единичка - это 7 (как и в десятичной - 10). Получаем следующие соотношения:
Y+7-X=Z младший разряд
Y+7-1-Y=X средний разряд ⇒ X=6
X-Y-1=Z старший разряд

Подставляем 6 вместо Х в остальные соотношения
Y+7-6=Z; Y+1=Z
6-Y-1=Z; 5-Y=Z
Правые части равны Z, приравниваем левые части
Y+1=5-Y; 2Y=4 ⇒ Y=2

Осталось найти Z: Z=Y+1; Z=2+1 ⇒ Z=3

Итак, X=6, Y=2, Z=3.
YYX=226₇, XYY=622₇, ZXZ=363₇
622₇ - 226₇ = 363₇ - это расшифрованный пример.

Зашифрованы числа в 7-чной СС: Х=6, У=2, Z=3, - 226, 622, 363. Если перевести числа в 10-чную СС, то получится: 118, 310 и 192. Проверим: 310-118=192.

// PascalABC.NET 3.0, сборка 1073
const
  sb='bcdfgjklmnpqrstvwxz';
  s='Computer programming is a process of computer programs creation';
var
  i,n:integer;
  s1,sn,t:string;
begin
  i:=1;
  while s[i]<>' ' do Inc(i);
  s1:=Copy(s,1,i-1);
  n:=Length(s); i:=n;
  while s[i]<>' ' do Dec(i);
  sn:=Copy(s,i+1,n-i);
  t:='';
  for i:=1 to Length(s1) do
    if Pos(s1[i],sb)>0 then t:=t+s1[i];
  s1:=t;
  t:='';
  for i:=1 to Length(sn) do
    if Pos(sn[i],sb)>0 then t:=t+sn[i];
  sn:=t;
  t:='';
  for i:=1 to Length(s1) do
    if Pos(s1[i],sn)>0 then
      if Pos(s1[i],t)=0 then t:=t+s1[i];
  for i:=1 to Length(t) do Write(t[i],' ');
  Writeln
end.
 
Тестовый прогон:
t r

2. "Нормальное" решение

// PascalABC.NET 3.0, сборка 1073
const
  sb='bcdfgjklmnpqrstvwxz';
  s='Computer programming is a process of computer programs creation';
begin
  var a:=s.ToWords(' ');
  a[0].Intersect(a[a.Length-1]).Where(x->Pos(x,sb)>0).Println(',')
end.

Тестовый прогон:
t,r

Количество информации определяется величиной, показывающей насколько уменьшилось наше незнание в вопросе.
1. Если на светофоре горит желтый свет и мы не знаем, какой свет горел на нем до желтого, то возможны два исхода - зеленый свет и красный свет. Какой бы из них потом не загорелся, мы получим выбор 1 из 2 возможных. А этому соответствует один бит информации.
2. Если на светофоре горит красный свет и это "нормальный светофор", то мы ЗНАЕМ, что после красного света всегда следует желтый. Поэтому при зажигании желтого света наше незнание не меняется, следовательно, мы получаем ноль бит информации.