LẬp tring pascal cơ bản đừng dùng nâng cao nhen^^ ddc thì dùng longint đề: Kiểm tra các chữ số của n có thứ tự tăng dần từ trái sang phải hay ko(số nằ

0 bình luận về “LẬp tring pascal cơ bản đừng dùng nâng cao nhen^^ ddc thì dùng longint đề: Kiểm tra các chữ số của n có thứ tự tăng dần từ trái sang phải hay ko(số nằ”

1. uses crt;
   var n,kt,a:longint;
   begin 
   clrscr;
      write(‘n=’);readln(n);
      a:=10; kt:=0;
      while n<>0 do 
         begin
            if abs(a)<abs(n mod 10) then kt:=1;
            a:=n mod 10;
            n:=n div 10;
         end;
       if kt=0 then write(‘Co’) else write(‘Khong’);
   readln
   end.

   Bình luận

2. program Hello;
   uses crt;
   var i,j:longint;
       n:string;
   begin
       clrscr;
       write(‘nhap n: ‘);
       readln(n);
       for i:=1 to length(n)-1 do
           begin
               if n[i]>n[i+1] then
                       j:=1;
           end;
       if j<>1 then
           write(‘Co.’)
       else
           write(‘Khong.’);
   end.

   length(x): đo độ dài của chuỗi x

   break: thoát vòng lặp.

   Bình luận