Nhập xâu và đếm số lần xuất hiện của một ký tự được nhập từ bàn phím

0 bình luận về “Nhập xâu và đếm số lần xuất hiện của một ký tự được nhập từ bàn phím”

1.   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

2. program oken;
   uses crt;
   var s: string;
       chr: char;
       dem,i: byte;
   begin
       clrscr;
       write(‘Nhap xau: ‘); readln(s);
       write(‘Nhap ki tu can kiem tra: ‘); readln(chr);
       dem:=0;
       for i:=1 to length(s) do
           if chr=s[i] then
               dem:=dem+1;
       writeln(‘So lan xuat hien cua ki tu ‘,chr,’: ‘,dem);
       readln;
   end.

   Bình luận