Составьте программу, вычеркивающую из слова Х буквы, встречающиеся при написании слова Х ровно три раза. (паскаль)

Вопрос школьника по предмету Информатика

Составьте программу, вычеркивающую из слова Х буквы, встречающиеся при написании слова Х ровно три раза. (паскаль)

Ответ учителя по предмету Информатика

// Паскаль

// Программа поддерживает латиницу, кириллицу и дефисы

const

  // Первая буквы, англ. «a» — 65, но может быть дефис #45

  first_letter = #45;

  // Последняя буквы, рус. «я»

  last_letter = #1103;

var

  x: string;

  i: integer;

  c: char;

  // Сколько раз встречает буква в слове

  count: array[first_letter..last_letter] of integer;

begin

  readln(x);

  // Обнуляем массив

  for c := first_letter to last_letter do

    count[c] := 0;

  // Подсчитываем буквы в слове

  for i := 1 to length(x) do

    inc(count[x[i]]);

  // Выводим слово без букв, встречающихся 3 раза

  for i := 1 to length(x) do

    if count[x[i]] <> 3 then

      write(x[i])

end.