Тема Множества:

Дан текст из строчных латинских букв, за которым следует

точка. Напечатать:

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

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

В Паскале АВС

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.