nhập vào 1 số n sau đó đếm xem n có bao nhiêu chữ số

0 bình luận về “nhập vào 1 số n sau đó đếm xem n có bao nhiêu chữ số”

1. program demchuso;

   uses crt;

   var n:int64;

          d:byte;

   begin

   clrscr;

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

   d:=0;

   while n>0 do

    begin

     d:=d+1;

     n:=n div 10;

    end;

   write(‘Co ‘,d,’ chu so’);

   readln

   end.

   Bình luận

2. Uses crt;
   Var i,n,dem:longint;
   Begin
   ClrScr;
   dem:=0;
   Write(‘Nhap so nguyen n: ‘);ReadLn(n);
   write(‘so ‘,n,’ co ‘);
   n:=abs(n);
   while n>0 Do
   Begin
   n := n div 10;
   dem:=dem+1;
   end;
   writeln(dem,’ chu so’);
   Readln
   End.

   Bình luận