Tim vi tri 1000 la so bao nhieu cua day

Tim vi tri 1000 la so bao nhieu cua day Const fi='num.inp'; fo='num.out'; Var cs:array[1 7] of longint = (9,180,2700,36000,450000,5400000,63000000); n:longint; f,g:text; Function num(n:longint):char; Var k,so,mu:longint; s:string; Begin k:=1; mu:=1; While (k d) begin n:=n-d; x:=x+d div i; j:=j*10; i:=i+1; d:=j*9*i; end; x:=x+(n div i); if n mod i>0 then begin x:=x+1; i:=n mod i; end; str(x,st); write('Ket qua: ',st[i]); end  ...var st: string; j,n,d,x: longint; i: integer; f:text; begin clrscr; write('Nhap n: ');readln(n); i:=1; j:=1;