Bài 1: Nhập xâu kí tự bất kì
a) Đếm số lần xuất hiện của 1 kí tự nào đó trong câu.
b) Liệt kê các kí tự có mặt trong xâu cùng số lần xuất hiện của các kí tự đó.
Bài giải:
uses crt;
var str:string[100];
chu:array[#1..#254] of integer;
i:integer;
ch:char;
begin
clrscr;
for ch:=#1 to #254 do chu[ch]:=0;
write(' Nhap chuoi = ');readln(str);
for i:=1 to length(str) do
(chu[upcase(str[i])]):=chu[upcase(str[i])] +1;
writeLn('Cac ki tu trong xau la:');
for ch:=#1 to #254 do
if chu[ch]>0 then writeln(ch, ': xuat hien ',chu[ch],' lan');
readln;
end.

uses crt;
var s:string;
i,j:longint;
begin
read(s);
writeln('Ten : ');
i:=length(s);
while (s[i] <>' ') do
begin
dec(i);
if s[i] =' ' then
for j:=i+1 to length(s) do write(s[j]);
end;
readln;
End.