m:-between(1,300,X),w(X,A),write(A),nl,fail.\x0d w(X,aho):-X mod 3=:=0,!;number_chars(X,L),member('3',L),!.\x0d w(X,X).
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page