Bài 12: Kiểu xâu

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
no no

Nhập vào 1 xâu kí tự từ bàn phím . Viết chương trình xóa kí tự là chữ có trong xâu

Vũ Quang Huy
20 tháng 3 2022 lúc 9:24

tham khảo

uses crt;

var st:string;

i,d:integer;

begin

clrscr;

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.


Các câu hỏi tương tự
no no
Xem chi tiết
Tiên Tiên
Xem chi tiết
Nguyễn Vy
Xem chi tiết
Anh Thư
Xem chi tiết
Trà my
Xem chi tiết
Thiên Thiên
Xem chi tiết
Phương Vũ Hà
Xem chi tiết
Phấn Nguyen
Xem chi tiết
Hong Trần
Xem chi tiết