viet chuong trinh nhap vao 1 so nguyen duong . kiem tra xem so chia 10 duoc may lan vd 123 chia 10 duoc 2 lan 1045 chia 10 duoc 3 lan

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.