在程序中定义一函数digit(n,k),它能分离出整数n从右边数第k个数字 如 digit(49687,5)=4 digit(2076,5)=0我做的.输入(49687,5)后、总是输出0 为什么阿.var n1,k1:integer;function digit(n,k:integer):longint;var i,j:inte
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/02 00:55:26
![在程序中定义一函数digit(n,k),它能分离出整数n从右边数第k个数字 如 digit(49687,5)=4 digit(2076,5)=0我做的.输入(49687,5)后、总是输出0 为什么阿.var n1,k1:integer;function digit(n,k:integer):longint;var i,j:inte](/uploads/image/z/2634034-58-4.jpg?t=%E5%9C%A8%E7%A8%8B%E5%BA%8F%E4%B8%AD%E5%AE%9A%E4%B9%89%E4%B8%80%E5%87%BD%E6%95%B0digit%28n%2Ck%29%2C%E5%AE%83%E8%83%BD%E5%88%86%E7%A6%BB%E5%87%BA%E6%95%B4%E6%95%B0n%E4%BB%8E%E5%8F%B3%E8%BE%B9%E6%95%B0%E7%AC%ACk%E4%B8%AA%E6%95%B0%E5%AD%97+%E5%A6%82+digit%2849687%2C5%29%3D4+digit%282076%2C5%29%3D0%E6%88%91%E5%81%9A%E7%9A%84.%E8%BE%93%E5%85%A5%EF%BC%8849687%2C5%EF%BC%89%E5%90%8E%E3%80%81%E6%80%BB%E6%98%AF%E8%BE%93%E5%87%BA0+%E4%B8%BA%E4%BB%80%E4%B9%88%E9%98%BF.var+n1%2Ck1%3Ainteger%3Bfunction+digit%28n%2Ck%3Ainteger%29%3Alongint%3Bvar+i%2Cj%3Ainte)
在程序中定义一函数digit(n,k),它能分离出整数n从右边数第k个数字 如 digit(49687,5)=4 digit(2076,5)=0我做的.输入(49687,5)后、总是输出0 为什么阿.var n1,k1:integer;function digit(n,k:integer):longint;var i,j:inte
在程序中定义一函数digit(n,k),它能分离出整数n从右边数第k个数字 如 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.
在程序中定义一函数digit(n,k),它能分离出整数n从右边数第k个数字 如 digit(49687,5)=4 digit(2076,5)=0我做的.输入(49687,5)后、总是输出0 为什么阿.var n1,k1:integer;function digit(n,k:integer):longint;var i,j:inte
var n1,k1:longint;
function digit(n,k:longint):longint;
var i,j:longint;
begin
i:=1;
for j:=1 to k do i:=i*10;
n:=n mod i;
i:=1;
for j:=1 to k-1 do i:=i*10;
digit:=trunc(n/i);
end;
begin
read(n1);
read(k1);
write(digit(n1,k1));
end.