Question

Возрастает или нет? PASCAL ABC Дано натуральное число n. Необходимо определить, является ли последовательность его цифр при просмотре справа налево упорядоченной по возрастанию.Формат входных данныхВводится целое число n (1≤n≤231−1).Формат выходных данныхВыведите «YES», если условие задачи выполняется, и «NO» в противном случае.Примерывходные данные выходные данные5321----------------------------YES7820----------------------------NO

Answer 1

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.

Answer 2

Для решения этой задачи можно преобразовать число n в строку, а затем просмотреть его цифры справа налево, проверяя, является ли последовательность цифр упорядоченной по возрастанию. Если это условие выполняется, выводим "YES", иначе "NO".

Пример алгоритма на языке Pascal ABC:

pascalCopy code
function IsDigitsAscending(n: integer): boolean;
var
  numStr: string;
  i: integer;
begin
  numStr := IntToStr(n);
  for i := Length(numStr) - 1 downto 1 do
  begin
    if Ord(numStr[i]) < Ord(numStr[i + 1]) then
      Exit(false);
  end;
  Exit(true);
end;

var
  n: integer;
begin
  Readln(n);
  if IsDigitsAscending(n) then
    Writeln('YES')
  else
    Writeln('NO');
end.

Пример работы программы:

yamlCopy code
Входные данные: 5321
Выходные данные: YES

Входные данные: 7820
Выходные данные: NO

Обратите вним