Question

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

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

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

В Паскале АВС

Answer 1

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.