Bài 1:

program dem_chuso;

uses crt;

var n:longint;

      d:byte;

begin

       clrscr;

       write('Nhap so: ');  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ài 2:

program inso;

uses crt;

var n,i:integer;

begin

       clrscr;

       write('Nhap so: ');   readln(n);

       for i:=1 to n do

              begin

                     write(i,' ');

                     if i mod 10=0 then writeln;

              end;

       readln;

end.

1.

uses crt;
var n,d:longint;
begin
clrscr;
   write('Nhap 1 so:');readln(n);
   while n<>0 Do 
      begin
        inc(d);
        n:=n div 10;
      end;
   writeln('n co ',d,' chu so');
readln;
end. 

2.

uses crt;
var n,i:longint;
begin
clrscr;
   write('Nhap so chu so muon nhap:');readln(n);
   for i:=1 to n do 
      begin 
         read(n);
         if i mod 10=0 then writeln;
      end; 
readln;
end.