作业帮 > 综合 > 作业

试求出小数点后第n位数字 pascal

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/11 05:00:28
试求出小数点后第n位数字 pascal
已知无穷小数X=0.12345678910111213141516171819...9899100101...,其中的数字是依次写下各自然数而得到的.试求出小数点后第n位数字.
输入一行:整数n(0
var
n,i:longint;
st:string;
bo:boolean;
begin
read(n);
bo:=true;
while bo do begin
inc(i);
str(i,st);
while length(st)>0 do begin
dec(n);
if n=0 then begin
writeln(st[1]);
bo:=false;
break;
end;
delete(st,1,1);
end;
end;
end.