Question

Помогите, пожалуйста! Программирование в КуМире
ввести целое число и определить верно ли что все его цифры расположены в порядке возрастания

Answer 1

алг Число
нач
  цел n, n1, k, f
  вывод "Введите целое число", нс
  ввод n
  n1:= div(n,10)
  k:= mod(n,10)
  f:= 1
  нц пока n1<>0
    если mod(n1,10) > k то
       f:= 0
    все
    k:= mod(n1,10)
    n1:= div(n1,10)
  кц
  если f=1 то
    вывод "Да."
   иначе
    вывод "Нет."
кон