program oken; uses crt; var x,n,dem:integer; begin clrscr; write('nhap so bat ky: '); readln(n); x:=n; while n<>0 do begin n:=n div 10; dem:=dem+1; end; writeln('so ',x,' chia cho 10 ',dem,' lan'); readln; end.
program Bai_tap_2; uses crt; var x,n,i:integer; begin clrscr; write('nhap n: '); readln(n); x:=n; while n<>0 do begin n:=n div 10; i:=i+1; end; writeln('so ',x,' chia cho 10 ',i,' lan'); readln; end.