do i=1,2000;j=i;1 k=k+mod(j,10)**2;j=j/10;if(j>0)goto1;j=k;k=0;if(j>6)goto1;if(j<2)print'(i0)',i;enddo;end
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page