Question

Дано натуральное число. Установить является ли последовательность его цифр при просмотре их слева направо упорядоченной по неубыванию. Например, для чисел 5321 и 9663 ответ положительный , для чисел 7820 и 9663 отрицательный и т.п. Написать программу на паскале, не используя массивы, boolean

Answer 1

Var s: string;
begin
  write('число:  '); readln(s);
  if s=s.Sorted.Reverse.JoinIntoString('') then
  writeln('упорядочено по неубыванию')
  else writeln('НЕ упорядочено');
end.    

Answer 2

Программа на паскале без использования массивов и boolean для определения упорядоченности цифр в натуральном числе:

program CheckOrder;

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

begin
  // Ввод числа
  write('Введите натуральное число: ');
  readln(num);
  
  ordered := true;
  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('Последовательность цифр упорядочена по неубыванию')
  else
    writeln('Последовательность цифр не упорядочена по неубыванию');
end.

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