Bài 12: Kiểu xâu

VH

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)

BT
31 tháng 3 2021 lúc 19:49

Bình luận (0)
NT
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ự
TL
Xem chi tiết
HT
Xem chi tiết
NV
Xem chi tiết
VN
Xem chi tiết
TP
Xem chi tiết
HD
Xem chi tiết
NT
Xem chi tiết
KM
Xem chi tiết
NL
Xem chi tiết