Ôn tập cuối năm

NX

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 "

KL
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.

Bình luận (0)

Các câu hỏi tương tự
HM
Xem chi tiết
TB
Xem chi tiết
PD
Xem chi tiết
TL
Xem chi tiết
LH
Xem chi tiết
NX
Xem chi tiết
HN
Xem chi tiết
SZ
Xem chi tiết
AT
Xem chi tiết