Дано натуральное число n. Определить, образуют ли все цифры числа убывающую последовательность — Pascal(Паскаль)

var
  n, l, l1, m: integer;
  flag: boolean;

begin

  n := 5432;
  l := n Mod 10;
  m := n div 10;
  flag := True;
  While (m > 0) And (flag = True) do
  begin
    l1 := m Mod 10;
    If l1 < l Then
      flag := False
    Else
    begin
      l := l1;
      m := m div 10
    End;
  end;
  If flag Then
    writeln('Образуют')
  else
    writeln('Не образуют');

end.

Результат работы программы

Leave a Comment

+ 15 = 24