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

192

401

Посмотреть ответы 2

Ответы на вопрос:

nikaa10

Информатика

4,8(29 оценок)

А) 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.