Viết chương trình nhập xâu bất kì từ bàn phím .Hãy cho biết có bao nhiêu kí tự chữ cái có trong xâu
2 câu trả lời
@ kynguyen64
Mời bạn xem ảnh dưới ↓↓↓
# nocopy
# ara boss ris
CHÚC BẠN HỌC TỐT !
NHỚ ĐỂ LẠI CHO KYNGUYEN64 CTLHN+5 SAO+CÁM ƠN !
uses crt;
var s:string;i:longint;
begin
clrscr;
readln(s);
d:=0;
for i:=1 to length(s) do if (s[i] in ['a'..'z']) or (s[i] in ['A'..'Z']) then d:=d+1;
write(d);
readln;
end.
