Nhập vào 1số nguyên dương N (điều kiện N nhỏ 100 kiểm tra xem số N có mấy chữ số

0 bình luận về “Nhập vào 1số nguyên dương N (điều kiện N nhỏ 100 kiểm tra xem số N có mấy chữ số”

1. uses crt;
   var n:longint; s:string;
   begin
   clrscr;
   n:=101;
      repeat
         write(‘n=’);readln(N);
      until n<100;
      str(n,s); writeln(length(S));
   readln;
   end.

   Bình luận

2. program oken;
   uses crt;
   var n,dem: byte;
   begin
       clrscr;
       write(‘Nhap n: ‘); readln(n);
       dem:=0;
       while n<>0 do
           begin
               n:=n div 10;
               dem:=dem+1;
           end;
       writeln(‘Co ‘,dem,’ chu so’);
       readln;
   end.

   Bình luận