Дано натуральное чсло N.Составте программу, которая определяет, является ли...

Question

Дано натуральное чсло N.Составте программу, которая определяет, является ли последовательность цифр этого числа ( при просмотре их справа налево) упорядоченной по возрастанию.

Answer 1

var
  x, n:integer;
begin
  write('n = ');
  readln(n);
  x := n mod 10;
  n := n div 10;
  while n > 0 do
  begin
    if n mod 10 < x then
    begin
      writeln('Последовательность неупорядочена по возрастанию');
      readln;
      Exit;
    end;
    x := n mod 10;
    n := n div 10;
  end;
  writeln('Последовательность упорядочена по возрастанию');
  readln;
end.