• Вопрос по информатике:

    Возрастает или нет? PASCAL ABC



    Дано натуральное число n. Необходимо определить, является ли последовательность его цифр при просмотре справа налево упорядоченной по возрастанию.


    Формат входных данных

    Вводится целое число n (1≤n≤231−1).

    Формат выходных данных

    Выведите «YES», если условие задачи выполняется, и «NO» в противном случае.

    Примеры

    входные данные выходные данные

    5321----------------------------YES

    7820----------------------------NO

    • Автор:

      marks

  • Var x, k, a,s, b:Integer ;

    Begin

    Write ('x=') ;read(x) ;

    B:=-1;k:=0;s:=0;

    While x>0 do begin

    A:=x mod 10;

    If a>b then k:=k+1;

    S:=s+1;

    X:=x div 10;b:=a;

    End;

    If k=s then writeln('YES') Else writeln('NO') ;

    End.

    • Отвечал:

      patricion9hp
    • 0

    Ответов нет, но ты это испарвиш!

Еще 4 ненужных тебе вопроса, но это важно для поиска