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