Bài 12: Kiểu xâu

BH

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

NT
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ự
NG
Xem chi tiết
LA
Xem chi tiết
AT
Xem chi tiết
TT
Xem chi tiết
AT
Xem chi tiết
TT
Xem chi tiết
NT
Xem chi tiết
PN
Xem chi tiết
LN
Xem chi tiết