viết chương trình nhập từ bàn phím xâu kí tự s có độ dài không quá 150. hãy cho biết độ dài của xâu và có bao nhiêu chữ a nhỏ xuất hiện trong xâu s .

0 bình luận về “viết chương trình nhập từ bàn phím xâu kí tự s có độ dài không quá 150. hãy cho biết độ dài của xâu và có bao nhiêu chữ a nhỏ xuất hiện trong xâu s .”

1. program chu_a;

   uses crt;

   var s:string[150];

         i,d:byte;

   begin

          clrscr;

          write(‘Nhap xau: ‘);  readln(s);

          d:=0;

          for i:=1 to length(s) do

                 if s[i]=’a’ then d:=d+1;

          write(‘Co ‘,d,’ chu a trong xau ‘,s);

          readln;

   end.

   Bình luận

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

   Bình luận