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

[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 18:21