来自戴永斌的问题
【在程序中定义一函数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.
