var
i: Integer;
char_counts: array [Char] of Integer;
c: Char;
begin
{ для каждого символа строки }
for i := 1 to Length(Str) do
{ увеличиваем соответствующий счётчик }
Inc(char_couns[Str[i]);
{ для символов с кодами от 255 до 32
(до 32-х, а не до 0 - потому что символы с кодом меньше 32 являются не отображаемыми) }
for c := #255 downto #32 do
{ если символ является буквой и количество его вхождений больше или равно 3, то }
if ([c] * ['A' .. 'Z', 'a' .. 'z', 'А' .. 'Я', 'а' .. 'я'] <> []) and (char_counts[c] >= 3) then
{ печатаем символ }
Write(c + ' '); { здесь ' ' - не пустые кавычки, а пробел в кавычках для разделения символов на печати }
WriteLn;
end;
|
