Lập trình pascal. Dùng longint Đề: Tính tổng giá trị chênh lệch giữa 2 chữ sô liền kề nhau của n

0 bình luận về “Lập trình pascal. Dùng longint Đề: Tính tổng giá trị chênh lệch giữa 2 chữ sô liền kề nhau của n”

1. uses crt;
   var n:longint;
       a,b:byte;
       t:word;
   begin
       clrscr;
       readln(n);
       a:=n mod 10;
       n:=n div 10;
       t:=0;
       while n<>0 do
          begin
              b:=n mod 10;
              n:=n div 10;
              t:=t+abs(a-b);
              a:=b;
          end;
       writeln(t);
   readln;
   end.

   Bình luận

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

   Bình luận