Tin học Viết chương trình

[DiemHuong.]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Giúp em với mọi người ơiiii....
- viết chương trình nhập vào 1 xâu không quá 100 kí tự đưa ra số lượng kí tự chữ a xuất hiện trong xâu không phân biệt in hoa hay in thường.

 

[Trâm Nguyễn Thị Ngọc]

Var
 s:string;
 i,d:integer;
Begin
 write('nhap vao mot xau:');
 readln(s);
 For i:=1 to length(s) do
  s[i]:=Upcase(s[i]);
 For i:=1 to length(s) do
    if s[i]='A' then d:=d+1;
write(d);
readln
End.