Программа паскаль Напишите программу, которая определяет, верно ли, что введённое число содержит две одинаковых цифры, стоящие рядом (как, например, 221).

Входные данные
Входная строка содержит одно натуральное число.

Выходные данные
Программа должна вывести слово 'YES', если в числе есть две одинаковые цифры, стоящие рядом, и слово 'NO', если такой пары цифр нет.

Пример программы на Pascal, которая решает эту задачу, выглядит следующим образом:

pascal
program CheckAdjacentDigits;
var
  input: string;
  i: integer;
  hasAdjacent: boolean;
begin
  // Считываем ввод пользователя
  readln(input);
  // Изначально предполагаем, что пары одинаковых цифр нет
  hasAdjacent := false;
  // Перебираем строку, проверяя соседние символы
  for i := 1 to length(input) - 1 do
  begin
    if input[i] = input[i + 1] then
    begin
      hasAdjacent := true;
      break; // Достаточно найти хотя бы одну пару
    end;
  end;
  // Выводим результат
  if hasAdjacent then
    writeln('YES')
  else
    writeln('NO');
end.

Пояснение работы программы:

1. Входные данные: Считывается строка input, которая представляет натуральное число. Это делается для удобства работы с отдельными символами числа.
2. Цикл проверки: Программа проходит по строке от первого символа до предпоследнего и сравнивает каждый символ с его соседом.
3. Обнаружение пары: Если обнаружены два одинаковых соседних символа, устанавливается флаг hasAdjacent в true, и цикл прерывается.
4. Вывод результата: Если флаг hasAdjacent установлен в true, выводится YES. В противном случае — NO.

Пример работы программы:

Ввод:

11234

Вывод:

objectivec
YES

Ввод:

12345

Вывод:

objectivec
NO

Эта программа универсальна и работает для любого натурального числа, независимо от длины.