Bài 12: Kiểu xâu

B2_Đinh Thị Huệ

Viết chương trình xoá các kí tự là chữ số từ một xâu bất kì được nhập từ bàn phím. In xâu kết quả ra màn hình

Nguyễn Lê Phước Thịnh
10 tháng 5 2022 lúc 23:02

uses crt;

var st:string;

d,i:integer;

begin

clrscr;

readln(st);

d:=length(st);

for i:=1 to d do 

  if not (st[i] in ['0'..'9']) then write(st[i]);

readln;

end.

Bình luận (0)

Các câu hỏi tương tự
Nguyễn TRƯỜNG Giang
Xem chi tiết
Lan Anh
Xem chi tiết
Anh Thư
Xem chi tiết
Tiên Tiên
Xem chi tiết
Anh Thư
Xem chi tiết
Tiêu Lý Thanh Thanh
Xem chi tiết
Nguyen Ngoc Thien
Xem chi tiết
Phấn Nguyen
Xem chi tiết
Long Nhi
Xem chi tiết