Bài 12: Kiểu xâu

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Phương Vũ Hà

Viết chương trình nhập vào xâu S.a, Xoá hết kí tự là chữ trong xâu.b, đếm xem xâu có bao nhiêu nguyên âm. c, đếm số lần xuất hiện của kí tự k đc nhập bào từ bàn phím

Nguyễn Lê Phước Thịnh
26 tháng 3 2021 lúc 16:05

uses crt;

var s:string;

i,d:integer;

begin

clrscr;

write('Nhap xau S:'); readln(s);

d:=length(s);

for i:=1 to d do 

  if (s[i] in ['a'..'z']) or (s[i] in ['A'..'Z']) then delete(s,i,1);

writeln('Xau sau khi xoa het ki tu chu la: ',s);

readln;

end.


Các câu hỏi tương tự
Anh Thư
Xem chi tiết
Trà my
Xem chi tiết
Thangg PH
Xem chi tiết
Nguyễn Thị Diễm Hạnh
Xem chi tiết
Hong Trần
Xem chi tiết
no no
Xem chi tiết
Anh Thư
Xem chi tiết
Thiên Thiên
Xem chi tiết
Nguyễn thị tuyết nhung
Xem chi tiết