var st:string;
a:array[1..255]of string;
i,d,dem,kt,j,dem1:integer;
begin
clrscr;
write['Nhap xau:']; readln[st];
d:=length[st];
a[1]:=st[1];
dem:=1;
for i:=1 to d do
begin
kt:=0;
for j:=1 to dem do
if st[i]=a[j] then kt:=1;
if kt=0 then
begin
inc[dem];
a[dem]:=st[i];
end;
end;
for i:=1 to dem do
begin
dem1:=0;
for j:=1 to d do
if a[i]=st[j] then inc[dem1];
writeln[a[i],' xuat hien ',dem1,' lan'];
end;
readln;
end.
program oken;uses crt;var s: string; chr: char; dem,i: byte;begin clrscr; write['Nhap xau: ']; readln[s]; write['Nhap ki tu can kiem tra: ']; readln[chr]; dem:=0; for i:=1 to length[s] do if chr=s[i] then dem:=dem+1; writeln['So lan xuat hien cua ki tu ',chr,': ',dem]; readln;
end.
Bài 2. Trang 73 Sách giáo khoa Tin học lớp 11
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 mỗi chữ cái Tiếng Anh trong S [không phân biệt chữ hoa hay thường ]
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