Дана строка текста слова разделены одним пробелом напечатать буквы входящие а)в исходный текст только один раз б) входящий в исходный текст не менее двух раз
А)
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
