Напечатать в алфавитном порядке буквы, входящие в текст не менее двух раз - Pascal ABC
Формулировка задачи:
Дана строка произвольного текста. Напечатать в алфавитном порядке буквы текста, входящие в него не менее двух раз, и их ASCII-коды.
Решение задачи: «Напечатать в алфавитном порядке буквы, входящие в текст не менее двух раз»
textual
Листинг программы
const
ALPHABET = ['a'..'z', 'A'..'Z'];
var
s: String;
one, two: Set Of Char;
i: Byte;
c: Char;
begin
Write('Введите строку текста: ');
ReadLn(s);
one := [];
two := [];
for i := 1 to Length(s) do
if (s[i] in one)
then
Include(two, s[i])
else
if (s[i] in ALPHABET)
then
Include(one, s[i]);
WriteLn;
WriteLn;
for c := 'a' to 'z' do
if (c in two)
then
WriteLn(c, ' - ', Ord(c));
for c := 'A' to 'Z' do
if (c in two)
then
WriteLn(c, ' - ', Ord(c));
end.