在程序中定義一函數(shù)digit(n,k),它能分離出整數(shù)n從右邊數(shù)第k個(gè)數(shù)字 如 digit(49687,5)=4 digit(2076,5)=0
我做的.輸入（49687,5）后、總是輸出0 為什么阿.
var n1,k1:integer;
function digit(n,k:integer):longint;
var i,j:integer;
begin
i:=1;
for j:=1 to k do i:=i*10;
digit:=trunc(n/i);
end;
begin
read(n1,k1);
write(digit(n1,k1));
end.