DD

Bài 1. 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ái có trong xâu.

 

NT
13 tháng 3 2022 lúc 11:08

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ự
NV
Xem chi tiết
H24
Xem chi tiết
TN
Xem chi tiết
NT
Xem chi tiết
DT
Xem chi tiết
NH
Xem chi tiết
DQ
Xem chi tiết
AD
Xem chi tiết
LH
Xem chi tiết