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

  • Автор темы TWENTY-ONE
  • Дата начала
T

TWENTY-ONE

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

nayke

Well-known member
04.08.2010
310
0
#2
Дана последовательность, содержащая от 2 до 50 слов, в каждом из которых от 1 до 8 строчных латинских букв; между соседними словами - не менее одного пробела, за последним словом - точка. Напечатать те слова последовательности, которые отличны от последнего слова и удовлетворяют следующему свойству:
- каждая буква входит в слово не менее 2-х раз.
В чем проблема? задавайте конкретные вопросы.
 
09.11.2009
665
1
#5
Напечатать те слова последовательности, которые отличны от последнего слова и удовлетворяют следующему свойству:
- каждая буква входит в слово не менее 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, то сравниваете данное слово с последним и выводите.