作业帮 > 综合 > 作业

定义一个函数digital(n,k),回送整数n从右边开始第k个数字,如digital(12345,2)=4,

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/22 07:34:58
定义一个函数digital(n,k),回送整数n从右边开始第k个数字,如digital(12345,2)=4,
function digtal(n,k:longint):integer;
var s:string;
begin
str(n,s);
exit(ord(s[k])-48);
end;
这是用 free pascal 设置的函数
turbo Pascal 中
exit(ord(s[k])-48);
改为 digtal:=ord(s[k])-48;