Six or more by *yuko*

var i,k,n:word=9;begin repeat i:=i+1;n:=i;repeat k:=n mod 10;n:=n div 10until abs(k-n mod 10)<6;if n<1then writeln(i)until i>9999end.

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

download

return to the top page