pascal编程：定义一个函数ds，回送整数n从右往左第k个数字的值

来源：百度知道 编辑：UC知道 时间：2024/06/23 17:39:27
Turbo Pascal 7.0的。怎么编啊？比如说12345，3；那就输出3.
用整除的方法啊！！前三种方法太深奥了，我是初学的啊。老师会骂的啊！！！ 毛出了，都不对的啊！！！ 是Turbo Pascal 7.0版的啊

晕 我还以为tp7和fp有什么不同 不都是一样的
你用你的tp7.0试一下 根本没错
var n:longint;
k:integer;

function ds(n:longint;k:integer):integer;
var i:integer;
begin
for i:=1 to k-1 do n:=n div 10;
ds:=n mod 10;
end;

begin
readln(n,k);

writeln(ds(n,k));
end.

这是我写的：
var
p,s:string;
n:integer;
function ds(a:string; b:integer):string;
begin
ds:=a[b];
end;
begin
readln(p,n);
write(ds(p,n));
end.
要加分哦~
O(∩_∩)O~

var ds,k,s:longint;
begin
read(ds);
read(k);
s:=1;
while k<>s do
begin
ds:=ds div 10;
s:=s+1;
end;
ds:=ds mod 10;
writeln(ds);
end.
改了 循环
往程序上照打一遍！
不要复制！