Bài 2: (5điểm)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ứ ktí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ụ : Với N và k được nhập: N = 65932, k = 4
Kết quả tìm được là 3.
Program BTT; Uses crt; Var N: String; i,k: longint; Begin Clrscr; Write('Nhap n: '); Readln(n); Write('Nhap k: '); Readln(k); If (k=0) or (k>length(N)) then Write('Khong tim duoc') Else Write('Ket qua: ',N[k]); Readln End.
uses crt; var k:longint; n:string; begin clrscr; write('n=');readln(n); write('k=');readln(k); if (k>length(n))or(k=0)then writeln('Khong tim duoc') else writeln(n[k]); readln end.