Hãy cho biết chữ số thứ k tính từ trái sang phải trong số N là số mấy?

Viết chương trình cho nhập hai số tự nhiên N và k. Hãy cho biết chữ số thứ k tính từ trái sang phải trong số N là số mấy? nếu k lớn hơn độ dài của N hoặc k bằng 0 thì thông báo không tìm được.

Ví dụ 1: Với N và k được nhập: N = 65932, k = 4

                    Kết quả tìm được là 3.

Ví dụ 2: Với N và k được nhập: N = 65932, k = 10

                    Kết quả tìm được là -1 ( k lớn hơn độ dài số N)

Program Chu_so_thu_k;

Var M: array[1..10] of integer;

   so: Longint;

   i,k:integer;

Begin

    Write('Nhap so: ');Readln(so); so:=abs(so);

    Write('Nhap k: ');Readln(k);

    i:=0;

    While so>0 do

    begin

        i:=i+1;

        M[i]:=so mod 10;

        so:=so div 10;

    end;

    Write('Chu so thu ',k,'la: ',M[i-k+1]);

    Readln

End.

Nhận xét :

Nếu bài toán yêu cầu tìm chữ số thứ k tính từ phải sang trái thì đơn giản hơn nhiều. Lúc đó ta chỉ cần xóa k-1 chữ số cuối. Rồi lấy chữ số cuối.