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

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

1. Uses crt;
   Var i,n,dem:longint;
   Begin
   ClrScr;
   dem:=0;
   Write(‘Nhap so nguyen n: ‘);ReadLn(n);
   n:=abs(n);
   while n>0 Do
   Begin
   n:=n div 10;
   dem:=dem+1;
   end;
   writeln(‘so ‘,n,’ co ‘,dem,’ 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