đếm số nguyên dương N có bao nhiêu chữ số,viết chương trình pascal

0 bình luận về “đếm số nguyên dương N có bao nhiêu chữ số,viết chương trình pascal”

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.

   Bình luận

2. uses crt;

   var n,d: integer;

   begin

   clrscr;

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

   while n>0 do

   begin

   n:=n div 10;

   inc(d);

   end;

   writeln (‘n co ‘,d,’ chu so’);

   readln;

   end.

   Bình luận