Welcome! You have been invited by Lê Gia Hoài to join our community. Please click here to register.
1 người đang xem
Bài viết: 7 Tìm chủ đề
868 91
Đề: 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:

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:

Những người đang xem chủ đề này

Xu hướng nội dung

Back