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

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

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

В Паскале АВС

1

Ответы и объяснения

Лучший Ответ!
2014-02-19T01:12:51+04:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.
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.