Задать вопрос Регистрация
Помочь другим

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

Ответы 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.

    • Автор:

      blair
    • 6 лет назад
    • 0

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years