numof 1 bits in 0 to 255 by pooq

var i,j,a:byte;begin repeat a:=0;for j:=0to 7do a:=i shr j mod 2+a;write(a);inc(i)until 1=0end.

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page