Bài 12: Kiểu xâu

Trần Thanh Trọng

Viết chương trình nhập vào 1 xâu, tạo xâu từ xâu vừa nhập  bao gồm các kí tự khác chữ, hiển thị kết quả ra màn hình

Nguyễn Lê Phước Thịnh
18 tháng 3 2021 lúc 22:39

uses crt;

var st:string;

d,i:integer;

begin

clrscr;

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

d:=length(st);

for i:=1 to d do 

  if not(st[i] in ['a'..'z']) and not(st[i] in ['A'..'Z']) then write(st[i]);

readln;

end.

Bình luận (0)

Các câu hỏi tương tự
Anh Thư
Xem chi tiết
B2_Đinh Thị Huệ
Xem chi tiết
Khánh Mỹ
Xem chi tiết
Minh Minh
Xem chi tiết
Yumi MC
Xem chi tiết
Nguyễn Chi
Xem chi tiết
Tiên Tiên
Xem chi tiết
Nguyễn khánh thành
Xem chi tiết
Khánh Mỹ
Xem chi tiết