Bài 12: Kiểu xâu

TT

Viết chương trình nhập vào 1 xâu, tạo xâu từ xâu vừa nhập  bao gồm các kí tự khác chữ, hiển thị kết quả ra màn hình

NT
18 tháng 3 2021 lúc 22:39

uses crt;

var st:string;

d,i:integer;

begin

clrscr;

write('Nhap xau:'); 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ự
AT
Xem chi tiết
BH
Xem chi tiết
KM
Xem chi tiết
MM
Xem chi tiết
YM
Xem chi tiết
NC
Xem chi tiết
TT
Xem chi tiết
NT
Xem chi tiết
KM
Xem chi tiết