Practical Numbers by *yuko*

var i,j,k:word;begin repeat i:=i+1;k:=1;j:=0;repeat j:=j+1;k:=k+j*ord(i mod j<1)until j=k;if i<k then writeln(i)until i>499end.

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

download

return to the top page