Дана строка текста слова разделены одним пробелом напечатать буквы входящие а) в исходный текст только один раз б) входящий в исходный текст не менее двух раз

А)

var s:string; mas:array ['a' ... 'z'] of longint; {индексы элементов соответствуют латинице} c:char; i:longint; begin read (s) ; for c:='a' to 'z' do{заполнение нулями элементов массива, для запоминания количества элементов в латинице} mas[c]:=0; for i:=1 to ord (s[0]) do{пробегаем по всей строке ord (s[0]) это количесвто элементов в строке (только паскаль) } mas[s[i]]:=mas[s[i]]+1; for c:='a' to 'z' do{пробегаем по массиву значений и выводим только неповторяющиеся} if (mas[c]=1) then writeln (c) ; end.