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

Question

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

Comments

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

Answer 1

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

Comments

нужно заменить строку writeln('упорядочено по неубыванию');  на writeln('упорядочено по невозрастанию');  если нужно по неубыванию, то изменяется строка   if s=s.Sorted.JoinIntoString('') then