viết chương trình nhập vào từ bàn phím một xâu kí tự S và thông báo ra màn hình số lần xuất hiện của chữ ‘a’ trong xâu S

0 bình luận về “viết chương trình nhập vào từ bàn phím một xâu kí tự S và thông báo ra màn hình số lần xuất hiện của chữ ‘a’ trong xâu S”

1. uses crt;
   var s:string;
       i,dem:byte;
   const a=’a’;
   begin
      write(‘Nhap xau: ‘); readln(s);
      for i:=1 to length(s) do
      if copy(s,i,1)=a then inc(dem);
      write(‘So lan xuat hien cua chu “a” la: ‘,dem);
      readln
   end.

   Bình luận

2. $Program$ $tin$_$hoc;$

   $Uses$ $crt;$

   $Var$ $S:string;$

         $i,k,dem:byte;$

   $Begin$

        $Clrscr;$

        $Write (‘Nhap$ $xau$ $S:’);$ $Readln(S);$

                 $k:=length(S);$ 

                 $Dem:=0;$

           $FOR$ $i:=1$ $to$ $k$ $do$

           $IF$ $S[i]=’a’$ $THEN$ $dem:=dem+1;$

        $Write (‘so$ $lan$ $xuat$ $hien$ $ki$ $tu$ $a$ $trong$ $xau$ $S$ $la’,$ $dem);$

        $Readln$

   $End.$

   BẠN THAM KHẢO.

   Bình luận