Viết chương trình nhập một xâu S từ bàn phím. Nhập một kí tự bất kì và đếm số lần xuất hiện của kí tự đó trong xâu

0 bình luận về “Viết chương trình nhập một xâu S từ bàn phím. Nhập một kí tự bất kì và đếm số lần xuất hiện của kí tự đó trong xâu”

1. uses crt;
   var s:string; c:char; i,d:byte;
   begin
   clrscr;
      readln(s);
      readln(c);
      for i:=1 to length(s) do 
         if s[i]=c then inc(d);
      writeln(d);
   readln;
   end.

   Bình luận

2. Uses crt;
   Var i, dem: integer;
         S: String;
         ch: char;
   Begin
        Clrscr;
        Write(‘Nhap xau S: ‘); readln(S);
        Write(‘Nhap ki tu bat ki: ‘); readln(ch);
        For i:=1 to length(S) do if ch=S[i] then inc(dem);
        Writeln(ch,’ xuat hien ‘,dem,’ lan’); 
   Readln
   End.

   Bình luận