Lập trình pascal đơn giản dùng longint Đề: Tìm giá trị chênh lệch lớn nhất giữa 2 chữ số liền kề nhau của n

0 bình luận về “Lập trình pascal đơn giản dùng longint Đề: Tìm giá trị chênh lệch lớn nhất giữa 2 chữ số liền kề nhau của n”

1. uses crt;
   var a,n,max,d:longint; 
   begin
   clrscr;
      write(‘Nhap n: ‘);readln(n);
      a:=0; d:=0;
      while n<>0 do 
         begin 
            d:=d+1;
            if (abs(n mod 10-a)>max)and(d<>1) then max:=abs(n mod 10-a);
            a:=n mod 10;
            n:=n div 10;
         end;
      writeln(max);
   readln
   end. 

   Bình luận

2. uses crt;
   var n:longint;
       a,b,max:byte;
   begin
       clrscr;
       readln(n);
       max:=0;
       while n div 10<>0 do
          begin
              a:=n mod 10;
              n:=n div 10;
              b:=n mod 10;
              if abs(a-b)>max then max:=abs(a-b);
          end;
       writeln(max);
   readln;
   end.

   Bình luận