count down by mugi666

var w,x:integer;begin read(w);x:=1;while x*10<=w do x:=x*10;repeat writeln(w);if(w<>1)and(w=x)then x:=x div 10;dec(w,x);until w<0;end.

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

download

return to the top page