Bài 12: Kiểu xâu

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

vViết chương trình nhập vào một xâu ký tự sau đó đếm xem trong xâu có bao nhiêu ký tự "a"

Kiều Vũ Linh
9 tháng 5 2022 lúc 9:38

Var st:string;

i,dem:integer;

Begin

Write('Nhap xau ky tu ');readln(st);

For i:=1 to length(st) do

If st[i] = 'a' then dem:=dem+1;

Write('So ky tu a co trong xau la ',dem);

Readln;

End.


Các câu hỏi tương tự
Nguyenthi Tien
Xem chi tiết
NTKL
Xem chi tiết
LINH VU HA NGOC
Xem chi tiết
THAO PHAM THI THU
Xem chi tiết
Khánh Mỹ
Xem chi tiết
H TC
Xem chi tiết
nguyễn an phát
Xem chi tiết
luc lun
Xem chi tiết
Nguyễn Hoàng Nam
Xem chi tiết