Помогите разобраться с этим заданием :Дан текст на русском языке. Напечатать в алфавитном порядке все гласные буквы, которые не входят более чем в одно слово. Вот нашел у вас подобное задание в котором надо все звонкие согласные вхожящие хоть в одно слово. Вопрос : Как напечатать буквы которые НЕ входят более чем в одно слово.
const ToFind = ['б', 'в', 'г', 'д', 'ж', 'з']; var Found: set of char; s: string; i: byte; lett: char; begin write('s = '); readln(s); for i := 1 to length(s) do if s[i] in ToFind Then Found := Found + [s[i]];
For lett := 'а' to 'я' do if lett in Found then write(lett, ' '); end.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.