Уровень b. m. две одинаковые цифры рядом напишите программу, которая определяет, верно ли, что введённое число содержит две одинаковых цифры, стоящие рядом (как, например, 221 входные данные входная строка содержит одно натуральное число. выходные данные программа должна вывести слово 'yes', если в числе есть две одинаковые цифры, стоящие рядом, и слово 'no', если такой пары цифр нет. примеры входные данные 5221 выходные данные yes входные данные 1232 выходные данные no уровень c. o. две одинаковые цифры напишите программу, которая определяет, верно ли, что введённое число содержит по крайней мере две одинаковых цифры, возможно, не стоящие рядом (как, например, 212). входные данные входная строка содержит одно натуральное число. выходные данные программа должна вывести слово 'yes', если в числе есть две одинаковые цифры, и слово 'no', если такой пары цифр нет. примеры входные данные 212 выходные данные yes входные данные 12345 выходные данные no

// PascalABC.NET 3.2, сборка 1381 от 04.02.2017
// Внимание! Если программа не работает, обновите версию!

Задача М

begin
  var a:=ReadInteger.ToString.AdjacentGroup;
  var f:=False;
  foreach var g in a do
    if g.Count>1 then begin
      Write('YES'); f:=true; break
    end;
  if not f then Write('NO')  
end.

Примеры
5221
YES

1232
NO

Задача О

begin
  var s:=ReadInteger.ToString;
  if s.Length<>(s.Distinct).Count then Write('YES')
  else Write('NO') 
end.

Примеры
212
YES

12345
NO

Const nmax=20;
var a: array [1..nmax+1] of byte;
n, j, i: byte;
x: integer;
begin
     repeat
          write('Количество элементов, не более ', nmax, ', n=');
           readln(n);
     until n in [1..nmax];
     for i:=1 to n do a[i]:=random(21);
     writeln('Исходный массив');
     for i:=1 to n do write(a[i]:4);
     writeln;
     i := 1;
     while (a[i] mod 5<>0) and (i<n) do inc(i);
     if (i<n) or ((i=n) and (a[i] mod 5=0)) then
     begin
          write('x=');
          readln(x);
          for j:=n downto i+1 do a[j+1]:=a[j];
          a[i+1]:=x;
          inc(n);
     end
      else
           writeln('Нет элемента с заданными свойствами');
     writeln('Преобразованный массив');
     for i:=1 to n do write(a[i]:4);
     writeln;
     readln;
end.

Что надо знать? 
Единицы измерения информации 
В 1 бит можно записать один двоичный символ.
1 байт = 8 бит
В кодировке ASCII в один байт можно записать один 256 символьный код
В кодировке UNICODE один 256 символьный код занимает в памяти два байта
1 килобайт = 1024 байт
1 мегабайт = 1024 килобайт
1 гигабайт = 1024 мегабайт
1 терабайт = 1024 гигабайт
Формула Хартли 2 i = N где i- количество информации в битах, N - неопределенность
Таблица степеней двойки, которая показывает сколько информации можно закодировать с бит 

i012345678910N=2 i12481632641282565121024

Чтобы вычислить информационный объем сообщения надо количество символов умножить на число бит, которое требуется для хранения одного символа 

Например: двоичный текст 01010111 занимает в памяти 8 бит 
Этот же текст в кодировке ASCII занимает 8 байт или 64 бита 
Этот же текст в кодировке UNICODE занимает 16 байт или 128 бит. 

Не забывайте, что пробелы надо тоже считать за символы поскольку они также набираются на клавиатуре и хранятся в памяти. 

Мощность алфавита - это количество символов в алфавите или неопределенность из формулы Хартли. 

Информационный вес одного символа - это значение i из формулы Хартли.

Отсюда можно сделать вывод, что не существует алфавита, состоящего из одного символа, поскольку тогда информационный вес этого символа был бы равен 0.