viết chương trình nhập vào 1 xâu gồm ký tự số và kí tự chữ ,tạo ra 2 xấu là phần tử chữ

var s1,s2: string;

i: integer;

begin

write('Nhap xau s1 :'); readln(s1);

s2:='';

for i:=1 to length(s1) do

if not(s1[i] in ['0'..'9']) then s2:=s2+s1[i];

write('s2=',s2);

readln

end.

Ab’ sẽ nhỏ hơn ‘a’. Vì A có mã ASCII là 65 nhỏ hơn a là 97.

‘a’ sẽ nhỏ hơn ‘aB’ . Khi 2 xâu độ dài không bằng nhau ta thêm kí tự đặc biệt nhỏ hơn mọi kí tự trong bảng ASCII (dĩ nhiên sẽ nhỏ hơn B ).

c) Các thủ tục khác.

   + delete(st, vt, n) xóa n kí tự của xâu st từ vị trí vt.

   +insert(st, s2, vt) chèn xâu s1 vào s2 bắt đầu ở vị trí vt.

   +copy(S, vt, N); Tạo xâu gồm N kí tự liên tiếp bắt đầu từ vị trí vt của xâu S.

                Chúc bạn học tốt!!!!