Đếm số lần xuất hiện của kí tự “A” trong xâu vừa nhập

0 bình luận về “Đếm số lần xuất hiện của kí tự “A” trong xâu vừa nhập”

1. program phuongt;
   uses crt;
     var s: string;
           i, d: integer;
   begin
          clrscr;
          write(‘Nhap s = ‘); readln(s);
          d:=0;
          for i:=1 to length(s) do if s[i]=’A’ then d:=d+1;
          write(‘So lan xuat hien cua ki tu “A” la: ‘, d);
          readln
   end.

   Bình luận

2. Program Hotboy ;

   Uses crt;

   var Hb:string;

   i,d:byte;

   k:char;

   Begin

   Clrscr;

   D:=0;

   Write(‘Nhap xau tu ban phim ‘);         

   Readln(Hb);

   Write(‘nhap ki tu bat ki’);

   Readln(k);

   For i:=1 to length(Hb) do

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

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

   Readln

   End.

   Bình luận