Đào Đào

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.

 

Nguyễn Lê Phước Thịnh
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ự
Nguyễn Thảo Vy
Xem chi tiết
minh
Xem chi tiết
Trung Nguyễn
Xem chi tiết
Nguyễn Thị Mỹ Tiền
Xem chi tiết
Doan Thai
Xem chi tiết
Nam Hải
Xem chi tiết
Đinh Đức Quảng
Xem chi tiết
Anh Duc
Xem chi tiết
Lê Gia Hiếu
Xem chi tiết