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

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

Для решения этой задачи на языке Паскаль, нужно будет выполнить два этапа:

1. Написать программу, которая находит наибольшую цифру в десятичной записи числа.
2. Написать программу, которая проверяет, есть ли в числе одинаковые цифры, стоящие рядом.

Давайте разберем каждую задачу по отдельности.

1. Программа для нахождения наибольшей цифры в числе

Чтобы найти наибольшую цифру в числе, можно пройти по каждой цифре числа и сравнить её с максимальной найденной на данный момент.

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

pascal
program FindMaxDigit;
var
  num, maxDigit, currentDigit: integer;
begin
  // Вводим число
  readln(num);
  
  // Инициализируем максимальную цифру как 0
  maxDigit := 0;
  
  // Проходим по всем цифрам числа
  while num > 0 do
  begin
    // Извлекаем последнюю цифру
    currentDigit := num mod 10;
    
    // Сравниваем с текущей максимальной цифрой
    if currentDigit > maxDigit then
      maxDigit := currentDigit;
      
    // Убираем последнюю цифру из числа
    num := num div 10;
  end;
  
  // Выводим наибольшую цифру
  writeln('Наибольшая цифра в числе: ', maxDigit);
end.

Здесь мы:

• Читаем число с клавиатуры.
• Используем цикл, чтобы извлечь каждую цифру из числа.
• Сравниваем каждую цифру с текущей максимальной и обновляем её при необходимости.
• После окончания цикла выводим наибольшую цифру.

2. Программа для проверки одинаковых соседних цифр

Для проверки наличия одинаковых цифр, стоящих рядом, нужно пройти по всем цифрам числа и сравнить каждую цифру с предыдущей.

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

pascal
program CheckAdjacentDigits;
var
  num, previousDigit, currentDigit: integer;
  found: boolean;
begin
  // Вводим число
  readln(num);
  
  // Инициализация переменных
  found := false;
  previousDigit := num mod 10;  // Первая цифра числа
  
  num := num div 10;  // Убираем первую цифру
  
  // Проходим по остальным цифрам числа
  while num > 0 do
  begin
    currentDigit := num mod 10;  // Извлекаем текущую цифру
    
    // Сравниваем с предыдущей цифрой
    if currentDigit = previousDigit then
    begin
      found := true;
      break;  // Если нашли одинаковые цифры, можно завершить цикл
    end;
    
    // Обновляем предыдущую цифру
    previousDigit := currentDigit;
    
    // Убираем последнюю цифру
    num := num div 10;
  end;
  
  // Выводим результат
  if found then
    writeln('В числе есть одинаковые соседние цифры.')
  else
    writeln('В числе нет одинаковых соседних цифр.');
end.

Здесь мы:

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

Резюме:

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

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