СРОЧНОДано целое число N. Выяснить является ли последовательность цифр это числа при...

Question

СРОЧНО
Дано целое число N. Выяснить является ли последовательность цифр это числа при просмотре справо налево возрастающей. Например, для числа 762 - ответ положительный, а для числа 8782 - ответ отрицательный

Answer 1

Var
   N:longint;
   k:byte;
Begin
Write('N = ');ReadLn(N);
k:=1;
N:=Abs(N);
While N div 10 > 0 do
   Begin
   if N mod 10 > (N div 10) mod 10 then k:=0;
   N:=N div 10
   End;
if k=1 then Write('Ответ положительный')
else WriteLn('Ответ отрицательный')
End.

Comments

спасибо