Последовательность цифр в числе! Опции

[Footballplayer]

опять застрял..

определить является ли последовательность цифр в числе справа налево последовательностью возрастающей..

например: 54321 - TRUE. 54325 - FALSE

я тут написал кое-что..но работает неправильно..не судите строго..я только учусь

  program My7_11;
uses crt;
var t,a,b,x,k,i:longint;
BEGIN
 clrscr;
 writeln('Vvedite chislo: ');
 readln(x);
 t:=x;
 q:=x;
 while t<>0 do begin
 t:=t div 10;
 k:=k+1;end;
 while i<k do begin

 a:=x mod 10;
 x:=x div 10;
 b:=x mod 10;
 x:=x div 10;
 i:=i+1;
 if b<a then halt;
 end;
 writeln('da'); 
 readkey;
 END.

предполагается что задачу надо решать без использования массива..

Сообщение отредактировано: Footballplayer - 5.08.2009 14:21

[volvo]

вот до этой строчки ни за что в жизни бы не додумался:

  prev := 0; ok := true;
  while ok and (X <> 0) do begin
    ok := (x mod 10) > prev; { <--- а вот до этой? }
    prev := X mod 10; X := X div 10;
  end;
  writeln(ok);

(работает точно так же, как и первый вариант)

[Footballplayer]

есть одно но.... на числа оканчивающиеся нулём выдаёт FALSE..
я сделал так:

prev:=-1;  

соответственно изменив тип переменной prev на shortint ...

такой ход не ошибочен?