

Đề: Viết chương trình pascal 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 không thì thông báo không tìm được.
Cách làm:
Cách làm:
Mã:
Uses crt;
Var N, k: Longint;
N2: String;
Begin
Clrscr;
Write ('nhap n=') ; readln (N) ;
Write ('nhap k=') ; readln (k) ;
Str (n, n2) ;
If (k=0) or (k>length (n2)) then write ('khong tim duoc')
Else write ('ket qua: ', n2[k]) ;
Readln
End.
Last edited by a moderator: