Help me. ☹️☹️ Nhập vào 1 xâu kí tự từ bàn phím. Lập trình đếm xem trong xâu vừa nhập có bao nhiêu kí tự A

0 bình luận về “Help me. ☹️☹️ Nhập vào 1 xâu kí tự từ bàn phím. Lập trình đếm xem trong xâu vừa nhập có bao nhiêu kí tự A”

1. uses crt;
   var st : string;
   i, dem : integer;
   begin clrscr;
   write(‘Nhap xau :’); readln(st);
   for i:=1 to length(st) do if st[i]=’A’ then dem:=dem+1;
   write(dem);
   readln
   end.

   Bình luận

2. program Min;
   var s:string;
       i,dem:integer;
   begin
       write(‘Nhap xau: ‘); readln(s);
     for i:=1 to length(s) do
      S[i]:=upcase(S[i]);
     for i:=1 to length(s) do
     if copy(s,i,3)=’A’ then inc(dem);

      writeln(‘So tu “A” xuat hien trong xau la: ‘,dem);
     readln
   end.
   P/S : Không biết bạn có yêu cầu phân biệt chữ hoa hay chữ thường không nhỉ : ?

   Bình luận