С Дельта – кода Элиаса зашифровать числа. Найти: L, M, M-1, Результат.

Задача 1, Pascal.ABC.Net

const
  sAlpha='';
  sDigit='0123456789';
var
  c,c1:char;
begin
  Write('Введите символ: '); Readln(c);
  c1:=LowerCase(c);
  if Pos(c1,sAlpha)>0 then Writeln('Введена буква ',c)
  else
    if Pos(c1,sDigit)>0 then Writeln('Введена цифра ',c)
    else Writeln('Введен спецсимвол ',c)
end.

Программирование задачи №2 - большая работа, требующая многих часов, если не имеется готовых наработок для программирования шахматной игры. Давать подобные задачи для решения на данном Сервисе - бесполезное занятие, такое не задают даже на олимпиадах.

Текст программы:
s1=input("Введите натуральное число А: ")
s2=input("Введите натуральное число B: ")
s=""
for i in '9876543210':
    s=s+i*min(s1.count(i),s2.count(i))
if s=="":
    s=-1
print(s)

Тестовое решение:
Python 3.4.2 (v3.4.2:ab2c023a9432, Oct  6 2014, 22:15:05) [MSC v.1600 32 bit (Intel)] on win32
Type "copyright", "credits" or "license()" for more information.
>>> RESTART
>>>
Введите натуральное число А: 10121213124353435345673424
Введите натуральное число B: 766653434521288956462362312122342
765554444333332222111
>>>