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.
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.
