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

Aliiev19 Aliiev19    3   29.08.2019 10:10    3

Ответы
kotizm kotizm  10.08.2020 01:24
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика