Bài 12: Kiểu xâu

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

Bài tập 2:Viết chương trình nhập một xâu từ bàn phím. Đếm số kí tự là chữ số chữ cái trong xâu vừa nhập và in ra màn hình. Xóa các chữ số kh xâu vừa nhập

Nguyễn Lê Phước Thịnh
10 tháng 4 2021 lúc 20:20

2:

uses crt;

var st:string;

d,i,dem1,dem2:integer;

begin

clrscr;

write('Nhap xau:'); readln(st);

d:=length(st);

dem1:=0;

dem2:=0;

for i:=1 to d do

  begin

if st[i] in ['0'..'9'] then inc(dem1);

if (st[i] in ['a'..'z']) or (st[i] in ['A'..'Z']) then inc(dem2);

end;

writeln('So ki tu la chu so la: ',dem1);

writeln('So ki tu la chu cai la: ',dem2);

for i:=1 to d do 

  if st[i] in ['0'..'9'] then delete(st,i,1);

writeln('Xau sau khi xoa cac chu so la: ',st);

readln;

end. 


Các câu hỏi tương tự
Nguyễn Vy
Xem chi tiết
Anh Thư
Xem chi tiết
B2_Đinh Thị Huệ
Xem chi tiết
Long Nhi
Xem chi tiết
Nguyễn Thị Diễm Hạnh
Xem chi tiết
Nguyen Ngoc Thien
Xem chi tiết
Nguyễn khánh thành
Xem chi tiết
Hong Trần
Xem chi tiết
Khánh Mỹ
Xem chi tiết