Bài 12: Kiểu xâu

Vân Hồng

Viết chương trình nhập xấu S. Đưa ra số kí tự chữ cái trong xâu (bao gồm cả chữ hoa và chữ thường)

Bùi Anh Tuấn
31 tháng 3 2021 lúc 19:49

Bình luận (0)
Nguyễn Lê Phước Thịnh
31 tháng 3 2021 lúc 22:14

uses crt;

var s:string;

dem,i,d:integer;

begin

clrscr;

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

d:=length(s);

dem:=0;

for i:=1 to d do 

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

writeln(dem);

readln;

end.

Bình luận (0)

Các câu hỏi tương tự
Trang Le
Xem chi tiết
Hong Trần
Xem chi tiết
Nguyễn Vy
Xem chi tiết
Võ Thị Thái Ngọc
Xem chi tiết
Thọ Phạm
Xem chi tiết
Huy Lê Đình
Xem chi tiết
Nguyen Ngoc Thien
Xem chi tiết
Khánh Mỹ
Xem chi tiết
nguyễn linh
Xem chi tiết