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.