nhập vào 1 xâu S đếm số lần xuất hiện chữ cái (A…Z) trong xâu vừa nhập chú ý không phân biệt chữ hoa hay chữ thường

0 bình luận về “nhập vào 1 xâu S đếm số lần xuất hiện chữ cái (A…Z) trong xâu vừa nhập chú ý không phân biệt chữ hoa hay chữ thường”

1. Program FNG;
   Uses crt;
   Var S: String;
       dem: array[‘A’..’Z’] of byte;
       d,i: longint;
       k: char;

   Function doixung(St: String): boolean;
   Var i: longint;
   Begin
           For i:=1 to length(St) div 2 do
                   If St[i]<>St[length(St)-i+1] then exit(false);
           exit(true);
   End;

   Begin
           Clrscr;
           Write(‘Nhap S: ‘); Readln(S);
           For i:=1 to length(S) do
                   S[i]:=Upcase(S[i]);
           For k:=’A’ to ‘Z’ do
                   dem[k]:=0;

           For i:=1 to length(S) do
                   If S[i] in [‘A’..’Z’] then inc(dem[S[i]]);
           Writeln(‘Cau 1: ‘);
           For k:=’A’ to ‘Z’ do
                   If dem[k]<>0 then Writeln(k,’: ‘,dem[k]);

           For i:=1 to length(S) do
                   If S[i] in [‘0’..’9′] then inc(d);
           Writeln(‘Cau 2: ‘,d);
           If doixung(S) then Write(‘Cau 3: Doi xung’)
           Else Write(‘Cau 3: Khong doi xung’);
           Readln

   Bình luận

2. uses crt;
   var i,d:longint; s:string;
   begin
   clrscr;
      write(‘S= ‘);readln(s);
      for i:=1 to length(S) do 
         if upcase(s[i]) in [‘A’..’Z’] then inc(D);
      writeln(d);
   readln
   end.

   Bình luận