1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

uses crt;

var s:string[30];

ch,x:char;

i:byte;

dem:array['A'..'Z']of byte;

BEGIN

clrscr;

write('Nhap vao xau s=');

readln(s);

for ch:='A' to 'Z' do dem[ch]:=0;

for i:=1 to length(s) do

begin

x:=upcase(s[i]);

if (x>='A') and (x

then

dem[x]:=dem[x]+1;

end;

for ch:='A' to 'Z' do

if dem[ch]0 then

writeln('So luong ki tu',ch,'la',dem[ch]);

readln;

Program BTT;
Uses crt;
Var St: String;
    i: longint;
    d: array[‘A’..’Z’] of longint;
    c: char;
Begin
        Clrscr;
        Write(‘Nhap St: ‘); Readln(St);

        For i:=1 to length(St) do
                St[i]:=UPCASE(St[i]);

        For c:=’A’ to ‘Z’ do d[c]:=0;

        For i:=1 to length(St) do
                If St[i] in [‘A’..’Z’] then
                        inc(d[St[i]]);
        For c:=’A’ to ‘Z’ do
                If d[c]>0 then
                Begin
                        Write(c,’ : ‘,d[c]);
                        Writeln;
                End;
        Readln
End.