Определите, сколько в строке символов, которые встречаются только 1 раз?язык программирования pascal abc.net

Предыдущий
вопрос Следующий
вопрос

Для выполнения этой задачи необходимо написать программу на языке Pascal, которая будет считать количество символов, встречающихся только один раз в строке.

Пример программы на Pascal:

program CountUniqueChars;
var
inputString: string;
uniqueChars: set of Char;
charCount: array[Char] of Integer;
i: Integer;
count: Integer;
begin
Write('Введите строку: ');
Readln(inputString);
for i := Low(CharCount) to High(CharCount) do
charCount[i] := 0;
for i := 1 to Length(inputString) do
Inc(charCount[inputString[i]]);
for i := 1 to Length(inputString) do
begin
if charCount[inputString[i]] = 1 then
uniqueChars := uniqueChars + [inputString[i]];
end;
count := Length(uniqueChars);
WriteLn('Количество символов, которые встречаются только один раз: ', count);
end.

Эта программа считывает строку с клавиатуры, подсчитывает количество каждого символа в строке и затем находит символы, которые встречаются только один раз, с помощью множества uniqueChars. В конце программа выводит количество таких символов.

Например, если на вход подать строку "abcdeabcd", программа выведет количество символов, которые встречаются только один раз: 3 ("e", "e", "e").