Bài 12: Kiểu xâu

NN

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

VH
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.

Bình luận (0)

Các câu hỏi tương tự
NN
Xem chi tiết
TT
Xem chi tiết
NV
Xem chi tiết
AT
Xem chi tiết
TM
Xem chi tiết
TT
Xem chi tiết
PH
Xem chi tiết
PN
Xem chi tiết
HT
Xem chi tiết