Дано целое число n. выяснить является ли последовательность цифр это числа при просмотре справо налево возрастающей. например, для числа 762 - ответ положительный, а для числа 8782 - ответ отрицательный
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.
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.