Cho mk hỏi làm sao để kiểm tra N là số tiến hay số lùi ạ mk cần gấp!hứa sẽ vote cho bạn trả lời sớm nhất

0 bình luận về “Cho mk hỏi làm sao để kiểm tra N là số tiến hay số lùi ạ mk cần gấp!hứa sẽ vote cho bạn trả lời sớm nhất”

1. program tienlui;

   var n: longword; 

    

   function xuLy(a: longword): String;

     var s: string[20];

         ar: array[1..20] of byte;

         code, i: byte;

         ktt, ktl: boolean;

     begin

       str(a, s);

       for i:=1 to length(s) do

            val(s[i], ar[i], code);

            

       ktt:=true; ktl:=true;

       for i:=2 to length(s) do

          if ar[i]<ar[i-1] then ktt:=false;

       if ktt then

          begin

            xuLy:=’TIEN’; exit;

          end;

          

       for i:=2 to length(s) do

          if ar[i]>ar[i-1] then ktl:=false;

       if ktl then

          begin

             xuLy:=’LUI’; exit;

          end;

        xuLy:=’KHONG’; exit;

     end;

    

   begin

     write(‘n = ‘); readln(n);

     write(xuLy(n));

     readln;

   end.

   {GM Kiet}

    

   Trả lời