Напишите программу, которая определяет, верно ли, что введённое число содержит две одинаковые цифры,...

Конечно! На языке программирования Паскаль можно написать программу, которая определяет, содержит ли введённое число две одинаковые цифры, стоящие рядом. Вот пример такой программы:

program CheckAdjacentDigits;

var
  inputNumber: string;
  i: Integer;
  hasAdjacentDigits: Boolean;

begin
  // Ввод числа в виде строки
  Write('Введите число: ');
  ReadLn(inputNumber);

  hasAdjacentDigits := False;

  // Проходим по строке и проверяем соседние цифры
  for i := 1 to Length(inputNumber) - 1 do
  begin
    if inputNumber[i] = inputNumber[i + 1] then
    begin
      hasAdjacentDigits := True;
      Break; // Если нашли пару одинаковых соседних цифр, выходим из цикла
    end;
  end;

  // Вывод результата
  if hasAdjacentDigits then
    WriteLn('Число содержит две одинаковые цифры, стоящие рядом.')
  else
    WriteLn('Число не содержит две одинаковые цифры, стоящие рядом.');
end.

Объяснение кода:

1. Ввод числа: Программа запрашивает у пользователя ввод числа, которое считывается как строка. Это позволяет легко обрабатывать каждую цифру отдельно.

2. Инициализация переменной: Переменная hasAdjacentDigits используется для хранения логического значения, которое указывает, найдены ли две одинаковые соседние цифры. Изначально она установлена в False.

3. Цикл для проверки: Программа проходит по всей строке, кроме последнего символа, и сравнивает каждую цифру с последующей. Если две соседние цифры равны, переменная hasAdjacentDigits устанавливается в True, и цикл прерывается с помощью оператора Break.

4. Вывод результата: В зависимости от значения hasAdjacentDigits, программа выводит соответствующее сообщение о наличии или отсутствии двух одинаковых соседних цифр в числе.

Этот код демонстрирует простой способ решения задачи проверки на наличие двух одинаковых соседних цифр в числе с использованием языка Паскаль.

Программа на языке Pascal:

program CheckAdjacentDigits;

var
  number, lastDigit, currentDigit: integer;
  isAdjacent: boolean;

begin
  writeln('Введите число:');
  readln(number);

  isAdjacent := false;
  lastDigit := number mod 10;
  number := number div 10;

  while number > 0 do
  begin
    currentDigit := number mod 10;
    if currentDigit = lastDigit then
    begin
      isAdjacent := true;
      break;
    end;
    lastDigit := currentDigit;
    number := number div 10;
  end;

  if isAdjacent then
    writeln('Число содержит две одинаковые цифры, стоящие рядом')
  else
    writeln('Число не содержит двух одинаковых цифр, стоящих рядом');
  
end.

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