定义一个函数digital（n,k）,回送整数n从右边开始第k个数字,如digital（12345,

网友回答

function digtal(n,k:longint):integer;
var s:string;
beginstr(n,s);
exit(ord(s[k])-48);
end; 这是用 free pascal 设置的函数
turbo Pascal 中
exit(ord(s[k])-48);
改为 digtal:=ord(s[k])-48;