• B правой части каждого сообщения есть стрелки и . Не стесняйтесь оценивать ответы. Чтобы автору вопроса закрыть свой тикет, надо выбрать лучший ответ. Просто нажмите значок в правой части сообщения.

  • Познакомьтесь с пентестом веб-приложений на практике в нашем новом бесплатном курсе

    «Анализ защищенности веб-приложений»

    🔥 Записаться бесплатно!

  • CTF с учебными материалами Codeby Games

    Обучение кибербезопасности в игровой форме. Более 200 заданий по Active Directory, OSINT, PWN, Веб, Стеганографии, Реверс-инжинирингу, Форензике и Криптографии. Школа CTF с бесплатными курсами по всем категориям.

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

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

TWENTY-ONE

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

nayke

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

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

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, то сравниваете данное слово с последним и выводите.
 
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!