uses crt;
function tcs(x:longint):longint;
var y : longint;
begin
 y := 0;
 while x<>0 do
begin
   y := y + x mod 10;
   x := x div 10;
end;
exit(y);
end;
function scs(n:longint):longint;
var d : longint;
begin
   d := 0;
  while n>0 do
begin
   n := n div 10;
   inc(d);
end;
exit(d);
end;
var n:longint;
begin
clrscr;
readln(n);
writeln('Do day cua so N la ',scs(n));
writeln('Do cao cua so N la ',tcs(n));
readln
end.

SOL:

• Nếu $1\le n\le9$ thì độ dày là $1$, độ cao là $n$

• Tính số chữ số ta dùng vòng lặp $while$, độ dầy tăng lên $1$

   Đồng thời cộng từng chữ số vào độ cao, sau mỗi lần lặp thì $\dfrac n{10}$

• Độ phức tạp thời gian của thuật toán là $O(n)$

Code:

const fi='SO.INP';
    fo='SO.OUT';
var f:text;
    n,count,sum:QWord;
begin
    assign(f,fi); reset(f);
    readln(f,n);
    if(n<=9) then
        begin
            count:=1;
            sum:=n;
        end else begin
                    while(n>0) do
                        begin
                            inc(sum,n mod 10);
                            inc(count);
                            n:=n div 10;
                        end;
                end;
    close(f);
    assign(f,fo); rewrite(f);
    writeln(f,count);
    writeln(f,sum);
    close(f);
end.