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 28/07/2021 Bởi Alice 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
@ 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 ! Bình luậ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. Bình luận
@ 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.