uses crt;
var st,sl,sl2:string;
    n,i,kol:integer;
    begin
    clrscr;
readln(st);
st:=st+' ';
repeat
sl:=copy(st,1,pos(' ',st));
delete(st,1,pos(' ',st));
n:=1;
kol:=0;
repeat
sl2:=copy(st,n,pos(' ',st));
if sl=sl2 then begin delete(st,n,pos(' ',st)); inc(kol); end
else n:=length(sl2)+1;
until (length(st)<n) or (length(st)=0);
if kol=0 then begin write(sl); i:=i+1; end;
until (length(st)=0);
if i=0 then write('не повторяющихся слов нет');
end.

Добавлено через 8 минут
а все не надо я ее сдела

Добавлено через 13 секунд
сделал

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

27.12.2011, 21:07

Ответы с готовыми решениями:

Определить сколько раз в строке встречаются слова, которые оканчиваются на букву 'к'?
вводится произвольная строка. определить сколько раз в этой строке встречаются слова, которые...

Строка: Найти все слова, которые содержат символ «t» и встречаются в тексте не менее 2 раз.
1. Дан текст. Найти все слова, которые содержат символ «t» и встречаются в тексте не менее 2 раз....

Удалить в строке слова, которые встречаются в ней указанное число раз
здравствуйте, необходимо срочно решить следующую задачу: удалить в строке слова, которые...

Дана последовательность слов в строке,напечатать все слова последовательности,которые встречаются 1 раз
Помогите разобраться в программе,распишите что она делает подробно пожалуйста!!!! var a:string;...

	27.12.2011, 21:07

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

27.12.2011, 21:07

Помогаю со студенческими работами здесь

Убрать в строке слова, которые встречаются не менее 3-х раз
Задана строка. Убрать те слова в строке, которые встречаются не менее 3-х раз.

Определить какие слова и сколько раз они встречаются в заданной строке
Ввести N слов и символьную строку. Определить какие слова и сколько раз они встречаются в заданной...

Напечатать все слова , которые встречаются в исходной строке ровно один раз
Дана производная строка, слова в которой разделены пробелами. Напечатать все слова , которые...

Найти в файле f слова, которые встречаются больше чем 1 раз и составить файл g, исключив из f все лишние слова
найти в файле f слова которые встречаются больше чем 1 раз и составить файл g исключив с f все...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Опции темы

Наверх