Sử dụng NNLT pascal, 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ề “Sử dụng NNLT pascal, 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. Program FNG;
   Uses crt;
   Var S: String;
       i,d: longint;
   Begin
           Clrscr;
           Write(‘Nhap S: ‘); Readln(S);
           d:=0;
           For i:=1 to length(S) do
                   If S[i]=’a’ then inc(d);
           Write(d);
           Readln
   End.

   Bình luận

2. Program Hotboy;

   Uses Crt;

   Var  xau:String;

        dem,i:shortint;

   Begin

   clrscr;

   dem:=0;

   Write(‘Nhap xau ‘); Readln(xau);

   For i:=1 to length(xau) do 

   if S[i] =’a’ then dem:=dem+1;

   Write(‘co so lan xuat hien cua chu a la’,dem);

   End.

   Bình luận