用字符串来做这道题,程序如下:Var m:int64;i,j,n:longint;s:string;Beginreadln(n);For i:=1 to n do Begins:='';str(i,s);m:=m+length(s);End;writeln(m);End.