Ôn tập cuối năm

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Nguyễn Thị Thanh Xuân

Nhập vào 1 xâu S từ bàn phím đếm xem trong xâu S có bao nhiêu vần " An "

Kiều Vũ Linh
5 tháng 5 2023 lúc 8:27

var s:string;

i,d:integer;

begin

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

for i:=1 to length(s) do

if (s[i] = 'A') and (s[i+1] = 'n') then d:=d+1;

write('Co ',d,' van An');

readln

end.


Các câu hỏi tương tự
Huyên Lê Thị Mỹ
Xem chi tiết
Thanh Bình
Xem chi tiết
Phan Văn Thái Dương
Xem chi tiết
Tài Tuệ Lê
Xem chi tiết
Lê Minh Hiếu
Xem chi tiết
Nguyễn Thị Thanh Xuân
Xem chi tiết
Hồ Nguyên
Xem chi tiết
siêu phẩm zed
Xem chi tiết
Ánh Thi
Xem chi tiết