【在程序中定义一函数digit(n,k),它能分离出整数n从右边数第k个数字如digit(49687,5)=4digit(2076,5)=0我做的.输入（49687,5）后、总是输出0为什么阿.varn1,k1:integer;functiondigit(n,k:integer):longint;vari,j:inte】

　　在程序中定义一函数digit(n,k),它能分离出整数n从右边数第k个数字如digit(49687,5)=4digit(2076,5)=0

　　我做的.输入（49687,5）后、总是输出0为什么阿.

　　varn1,k1:integer;

　　functiondigit(n,k:integer):longint;

　　vari,j:integer;

　　begin

　　i:=1;

　　forj:=1tokdoi:=i*10;

　　digit:=trunc(n/i);

　　end;

　　begin

　　read(n1,k1);

　　write(digit(n1,k1));

　　end.