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

0 bình luận về “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”

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

   Bình luận

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

   Bình luận