viết chương trình nhập vào 1 số n, sau đó đếm xem n có bao nhiêu chữ số rồi in kết quả ra màn hình

0 bình luận về “viết chương trình nhập vào 1 số n, sau đó đếm xem n có bao nhiêu chữ số rồi in kết quả ra màn hình”

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

2. program dem_chu_so_n;

   uses crt;
   var i,n,d:longint;
   Begin
   write(‘Nhap so nguyen n: ‘);

   Readln(n);
   n:=abs(n);
   while n>0 Do
   Begin
   n := n div 10;
   d:=d+1;
   end;
   writeln(n,’ co ‘,d,’ chu so’);
   readln;
   end.

   Bình luận