Дано натуральное число. Установить является ли последовательность его цифр при просмотре их слева направо...

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

program CheckOrderOfDigits;

var
  num, prevDigit, currentDigit: integer;
  isOrdered: boolean;

begin
  writeln('Введите натуральное число: ');
  readln(num);
  
  isOrdered := true;
  prevDigit := num mod 10;
  num := num div 10;
  
  while num > 0 do
  begin
    currentDigit := num mod 10;
    if currentDigit > prevDigit then
    begin
      isOrdered := false;
      break;
    end;
    
    prevDigit := currentDigit;
    num := num div 10;
  end;
  
  if isOrdered then
    writeln('Последовательность цифр упорядочена по неубыванию')
  else
    writeln('Последовательность цифр не упорядочена по неубыванию');
end.

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

program CheckOrderOfDigits;

var num, prevDigit, currentDigit: integer; ordered: boolean;

begin ordered := true;

write('Enter a natural number: '); readln(num);

prevDigit := num mod 10; num := num div 10;

while num > 0 do begin

currentDigit := num mod 10;
if currentDigit > prevDigit then
begin
  ordered := false;
  break;
end;

prevDigit := currentDigit;
num := num div 10;

end;

if ordered then

writeln('The sequence of digits is ordered.')

else

writeln('The sequence of digits is not ordered.');

end.

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

Ниже приведен пример программы на языке Pascal, которая выполняет эту задачу. Мы будем использовать стандартные операции для работы с числами и циклами, без использования массивов и логического типа boolean.

program CheckNonDecreasingOrder;

var
  number, currentDigit, previousDigit: integer;
  isNonDecreasing: integer;

begin
  writeln('Введите натуральное число:');
  readln(number);

  // Инициализируем переменные
  previousDigit := 10; // Устанавливаем на 10, так как цифры от 0 до 9
  isNonDecreasing := 1; // 1 - если упорядочено, 0 - если не упорядочено

  // Проходим по всем цифрам числа справа налево
  while number > 0 do
  begin
    currentDigit := number mod 10; // Получаем последнюю цифру числа
    number := number div 10;       // Убираем последнюю цифру из числа

    if currentDigit > previousDigit then
    begin
      isNonDecreasing := 0; // Последовательность не упорядочена
      break;                // Можно выйти из цикла
    end;

    previousDigit := currentDigit; // Обновляем предыдущую цифру
  end;

  // Результат
  if isNonDecreasing = 1 then
    writeln('Цифры числа упорядочены по неубыванию.')
  else
    writeln('Цифры числа не упорядочены по неубыванию.');
end.

Объяснение программы:

1. Инициализация:

   • previousDigit устанавливается в 10, что больше любой возможной цифры (0-9), что позволяет корректно начать проверку первой цифры.
   • isNonDecreasing инициализируется единицей, что предполагает, что число упорядочено, пока не будет доказано обратное.

2. Цикл:

   • currentDigit вычисляется как остаток от деления number на 10, что эквивалентно выделению последней цифры.
   • number уменьшается в 10 раз (делится на 10), чтобы убрать последнюю цифру.
   • Сравнивается currentDigit и previousDigit. Если текущая цифра больше предыдущей, значит, порядок нарушен, и переменной isNonDecreasing присваивается 0, после чего цикл прерывается.

3. Вывод:

   • После завершения цикла выводится результат на основе значения isNonDecreasing.

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