Nhập vào một số nguyên dương n hãy đếm xem số nguyên dương n có bao nhiêu chữ số.

0 bình luận về “Nhập vào một số nguyên dương n hãy đếm xem số nguyên dương n có bao nhiêu chữ số.”

1. uses crt;
   var n,dem:Integer;
   begin
   clrscr;
   write(‘nhap n ‘);ReadLn(n);
   repeat
   n:=n div 10;
   dem:=dem+1;
   until n=0;
   write(‘co ‘,dem,‘ so’);
   readln end.

   Vận dụng div 10 để làm

   Bình luận

2. prgram bt;

   var

          n,dem:longint;

   begin

            write(‘Nhap n: ‘);readln(n);

            dem:=0;

            while n<>0 do

            begin

                         n:=n div 10;

                         dem:=dem+1;

           end;

          write(‘So n co ‘,dem,’ chu so’);

         readln;

   end.

           

   Bình luận