Viết chương trình nhập xâu S và đếm số lần xuất hiện của chữ a trong xâu S ( không phân biệt a hoa hay a thường)

0 bình luận về “Viết chương trình nhập xâu S và đếm số lần xuất hiện của chữ a trong xâu S ( không phân biệt a hoa hay a thường)”

1. program xaus;

   uses crt;
   var s:string;
         i,dem:byte;
   begin clrscr;
      write(‘Nhap xau s: ‘); readln(s);
        for i:=1 to length(s) do
          if s[i]=’a’ then inc(dem);
      write(‘Co ‘,dem,’ tu a trong xau’);
   readln;
   end.

   Học tốt!

   Bình luận

2. uses crt;
   var s:string;
       i,dem:byte;
   begin
      clrscr;
      write(‘Nhap xau s: ‘); readln(s);
      for i:=1 to length(s) do
      if (s[i]=’a’) or (s[i]=’A’) then inc(dem);
      write(‘Co ‘,dem,’ tu a trong xau’);
      readln
   end.

   Bình luận