Viết chương trình nhập vào 1 xâu. Đếm số lần xuất hiện của chữ a trong xâu vừa nhập

0 bình luận về “Viết chương trình nhập vào 1 xâu. Đếm số lần xuất hiện của chữ a trong xâu vừa nhập”

1.   Program Hotboy ;

     Uses crt;

     var Hb:string;

     i,d:byte;

     Begin

     Clrscr;

      D:=0;

      Write(‘Nhap xau tu ban phim ‘);         

      Readln(Hb);

      For i:=1 to length(Hb) do

      if (Hb[i]=’a’) then inc(d);

      write(‘So ki tu a trong xau do la: ‘,d);

      Readln

      End.

   Bình luận

2. uses crt;
   var s:string; i,dem:byte;
   begin
      clrscr; dem:=0;
      write(‘Nhap s: ‘); readln(s);
      for i:=1 to length(s) do
      if s[i]=’a’ then inc(dem);
      write(‘Chu a xuat hien ‘,dem,’ lan.’);
      readln
   end.

   Bình luận