Bài 12: Kiểu xâu

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Hiếu

Mọi người giải giúp mình Bài Tập này với ạ! Mình xin cảm ơn nhiều: Bài tập: Viết chương trình nhập từ bàn phím một xâu kí tự S. Viết ra màn hình: - Các kí tự số có trong xâu S - Số lượng các kí tự số có trong xâu S. - Thay tất cả các kí tự số đó bằng kí tự ‘A’.

Nguyễn Lê Phước Thịnh
29 tháng 3 2021 lúc 21:36

uses crt;

var s:string;

i,d,dem:integer;

begin

clrscr;

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

d:=length(s);

writeln('Cac ki tu so co trong xau S:'); 

dem:=0;

for i:=1 to d do 

  if s[i] in ['0'..'9'] then

begin

write(s[i]:4);

inc(dem);

end;

writeln;

writeln('So ki tu chu so co trong xau S: ',dem);

for i:=1 to d do 

  if s[i] in ['0'..'9'] then s[i]:='A'

writeln('Xau sau khi doi la: ',s);

readln;

end.


Các câu hỏi tương tự
Tiên Tiên
Xem chi tiết
Thọ Phạm
Xem chi tiết
Huy Lê Đình
Xem chi tiết
Anh Thư
Xem chi tiết
Nguyễn thị tuyết nhung
Xem chi tiết
Trâm Phạm
Xem chi tiết
Hong Trần
Xem chi tiết
Long Nhi
Xem chi tiết
Anh Thư
Xem chi tiết