Bài tập Pascal Free Pascal 01 đến 16 Có bài giải (từ đơn giản đến nâng cao) BY Nguyễn Anh Việt

Các bài ôn tập – Phần 5
Bài tập Pascal – Từ cơ bản đến nâng cao
Bài 16.01: Xâu số
Một xâu chữ cái được gọi là xâu số nếu khi xóa 1 vài kí tự ta thu được một trong các xâu sau: ONE, TWO,
THREE, FOUR, FIVE, SIX, SEVEN, EIGHT, NINE. Các xâu: ONE, TWO, THREE, FOUR, FIVE, SIX,
SEVEN, EIGHT, NINE được gọi là các chữ số (tương ứng với các số nguyên: 1, 2, 3, 4, 5, 6, 7, 8, 9)
VD
BOUNCE và ANNOUNCE là hai xâu số vì hai xâu có chứa từ ONE
ENCODE không phải là xâu số vì dù có chứa O, N, E nhưng vị trí của chúng theo thứ tự là N, O, E
Yêu cầu:
Viết chương trình nhập vào 1 xâu. kiểm tra xâu đó có phải xâu số không. Nếu là xâu số thì in ra màn hình
số nguyên tương ứng với từ số chứa trong xâu này. Nếu xâu được nhập không phải là xâu số thì xuất ra màn hình
"KHONG'.
VD
BOUNCE thì in ra 1
ENCODE thì in ra KHONG
Biên soạn: Th.s Nguyễn Anh Việt Trang 48