Nhập 1 xâu từ bàn phím không quá 100 kí tự. Hãy đưa ra màn hình số lượng kí tự ‘a’ có trong xâu vừa nhập.

0 bình luận về “Nhập 1 xâu từ bàn phím không quá 100 kí tự. Hãy đưa ra màn hình số lượng kí tự ‘a’ có trong xâu vừa nhập.”

1. uses crt;
   var a:string[100];
       i,dem:integer;
   begin
      clrscr;
      write(‘Nhap xau: ‘); readln(a);
      for i:=1 to length(a) do 
      if a[i]=’a’ then inc(dem);
      writeln(‘So tu “a” xuat hien trong xau la: ‘,dem);
      readln
   end.

   Bạn chạy kiểm tra chương trình giúp mình nhá 😀 

   Bình luận