character*999c;integer*8n;do1;read*,c,n;1 print'(i0)',mod((ichar(c(len_trim(c):))-48)**(mod(n-1,4)+1),10);end
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page