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