Cho biết số trang sách của 1 quyển sách Hãy tìm số lượng các chữ số dùng để đánh số trang của quyển sách đó

var n:longint;

      s,k:integer;

begin

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

for i:= 1 to n do

begin

str(i,k);

s:=s+k;

k:='';

end;

write('So chu so la: ',length(s));

readln;

end.

Program BTT;
Uses crt;
Var S,k: Ansistring;
    n,i: longint;
Begin
        Clrscr;
        Write('Nhap so trang: '); Readln(n);
        S:='';
        For i:=1 to n do
        Begin
                Str(i,k);
                S:=S+k;
        End;

        Write('So luong: ',length(S));
        Readln
End.