numof 1 bits in 0 to 255 by tryeng

var
a:array[0..256]of byte;
i:byte;
begin
for i:=0to 255 do begin a[i]:=a[i div 2]+i mod 2;write(a[i]);end
end.

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

download

return to the top page