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.
2 câu trả lời
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.
Câu hỏi trong lớp
Xem thêm
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 8 có lời giải chi tiết
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 4 Địa 8 có lời giải chi tiết
