Помогите,пожалуйста,буду очень благодарен,на паскале понятия не имею как задачу решить:
>Дано текст, в котором от 1 до 20 слов, в каждом слове от 1 до 10 букв, слова разделены пробелами. Напечатать слова, в которых нет букв, которые повторяются

COOLBOY007, Напечатать слова, в которых нет букв, которые повторяются

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

Solskjaer, а что дальше?
Не помню только там с нуля или единицы.
Ну и некоторые операции забыл))
for i:=0 to length(word) do begin
a:=word[i];
for j:=0 to lenght(word) do if a = word[j] and j<>i then writeln('povtor')
end;
Ну ты понял)
я ленивый поэтому засчет гк сократил раздумия.

Заплачу за написание прог 1000р
30 прог (легкие)
Гарантии аттестат: персональный BL 32 R103745505252