var i,n:byte;begin repeat write(n);i:=i+1;n:=n+1-round(ln(i and(-i))/0.7)until i<1end.
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page