Тема Множества:
Дан текст из строчных латинских букв, за которым следует
точка. Напечатать:

- все буквы, входящие в текст не менее двух раз;

- все буквы, входящие в текст по одному разу.

В Паскале АВС

Var
    l: array [a..z] of integer;
    s: string;
    i:integer;
    c:char;

begin
    read(s);
    for i := 1 to length(s) do
        if s[i] in [a..z] then
            l[s[i]] := l[s[i]] + 1
        else if s[i] = . then
            break;
   
    for c := a to z do
        if l[c] >= 2 then
            writeln(c, = , l[c]);
   
    for c := a to z do
        if l[c] = 1 then
            writeln(c, = , l[c]);
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.