Question

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

Answer 1

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.