Строковый Тип.

[TWENTY-ONE]

Дана последовательность, содержащая от 2 до 50 слов, в каждом из которых от 1 до 8 строчных латинских букв; между соседними словами - не менее одного пробела, за последним словом - точка. Напечатать те слова последовательности, которые отличны от последнего слова и удовлетворяют следующему свойству:
- каждая буква входит в слово не менее 2-х раз.

 

[nayke]

Дана последовательность, содержащая от 2 до 50 слов, в каждом из которых от 1 до 8 строчных латинских букв; между соседними словами - не менее одного пробела, за последним словом - точка. Напечатать те слова последовательности, которые отличны от последнего слова и удовлетворяют следующему свойству:
- каждая буква входит в слово не менее 2-х раз.

В чем проблема? задавайте конкретные вопросы.

 

[TWENTY-ONE]

В чем проблема? задавайте конкретные вопросы.

Не могу написать условие для этой проги.

 

[nayke]

Не могу написать условие для этой проги.

Если нужны не ответы, а полный конечный код называйте цену.

 

[Dock1100]

Напечатать те слова последовательности, которые отличны от последнего слова и удовлетворяют следующему свойству:
- каждая буква входит в слово не менее 2-х раз.

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

- каждая буква входит в слово не менее 2-х раз.

Поскольку каждое слово содержит от 1 до 8 букв, то делаете масив a:array[1..8] of integer
Делаете цыкл for:

for i:=1 to length(s) do
for j:=1 to length(s) do
begin
if (s[i]=s[j])and(i<>j) then a[i]:=a[i]+1;
end;

Проверяете каждый элемент полученого масива и если все числа в нём менше 2, то сравниваете данное слово с последним и выводите.