PASCAL问题

已试过，不懂请追问，望采纳

program p

var st1,st2:string

  a,s,x,i:longint

begin

readln(a)

for i:=1 to a do

  begin

  str(i,st2)                   {str(i,st2):过程，将数 i 转化成数字串st2}

  st1:=st1+st2             {字符串可直接相加。如：‘abc’+‘def’=‘abcdef’}

end

x:=length(st1)             {length函数，求串中字符个数}

writeln(x)

end.

【样例输入1】

5

【样例输出1】

5

【样例输入2】

15

【样例输出2】

21

【样例输入3】

120

【样例输出3】

252

上面的太复杂了，不实用。

已通过fpc测试，是对的

时间也是符合要求的

望采纳

谢谢！

附图，有图有真相：

FPC板子在电镀时可以做到0点1到1点5um厚度之间。FPC电镀的厚度电镀时电镀金属的沉积速度与电场强度有直接关系电场强度又随线路图形的形状电极的位置关系而变化，一般导线的线宽越细端子部位的端子越尖与电极的距离越近电场强度就越大该部位的镀层就越厚。

FPC板子分类

FPC软板一般分为单层板双层板多层板双面板FPC单层软板的结构这种结构的柔性板是最简单结构的柔性板，通常基材加透明胶加铜箔是一套买来的原材料保护膜加透明胶是另一种买来的原材料，首先铜箔要进行刻蚀等工艺处理来得到需要的电路保护膜要进行钻孔以露出相应的焊盘清洗之后再用滚压法把两者结合起来。

FPC 双层软板的结构当电路的线路太复杂单层板无法布线或需要铜箔以进行接地屏蔽时，就需要选用双层板甚至多层板多层板与单层板最典型的差异是增加了过孔结构以便联结各层铜箔一般基材加透明胶加铜箔的第一个加工工艺就是制作过孔。

---