|
发表于 2006-9-6 21:50:23
|
显示全部楼层
可以用最直接的搜索,分别计算1到n中1的个数累加就行,第一个问题解决了,第二个也就解决了,下面是用delphi6.0写的程序,<br/>var s:string;<br/> i,j,n,nnum:integer;<br/>begin<br/> nnum:=0;<br/> n:=strtoint(edit1.Text);<br/> for i:=1 to n do<br/> begin<br/> s:=inttostr(i);<br/> for j:=1 to i do<br/> if s[j]='1' then<br/> nnum:=nnum+1;<br/> end;<br/> edit1.Text :=edit1.Text +' '+inttostr(nnum);<br/>end;<br/> |
|