Вывести на экран слова,содержащие три буквы Опции

[Lapp]

Lapp,да

Ну, тогда только первый вариант. Либо подойти с другой стороны и вместо множества раделителей вводить множество букв. Его задавать даже проще (если только латинские).

За + спасибо. Пожалуй, ты тоже заслуживаешь поощрения за долготерпение при объяснении )).
+1

Добавлено через 18 мин.
Вот тебе вариант с буквами и цифрами (а не с разделителями). Только в нем только латиница. Кириллицу, если надо, добавь сам.

const
   letters = ['A'..'Z','a'..'z','0'..'9'];

var
  s,t: string;
  i: integer;

begin
  ReadLn(s);
  t:='';
  for i:=1 to Length(s)+1 do
    if (i>Length(s))or not (s[i] in Letters) then begin
      if Length(t)=3 then WriteLn(t);
      t:=''
    end
    else t:=t+s[i]
end.

[Archon]

Я кажется понял =). Он попробовал написать программу сам и условие наличия слова из 3-х букв у него вышло следующее:

if (s[i]=' ') and (s[i+4]=' ')

А в таком условии в предложении вроде "..., а у нас во дворе ..." сочетание "а у" программа посчитает одним словом.

[Lapp]

Я кажется понял =). Он попробовал написать программу сам и условие наличия слова из 3-х букв у него вышло следующее:

if (s[i]=' ') and (s[i+4]=' ')

А в таком условии в предложении вроде "..., а у нас во дворе ..." сочетание "а у" программа посчитает одним словом.

Archon, где ты раньше был? Единственный человек, давший себе труд посмотреть приведенный автором темы код..
Да, похоже, ты прав. Получай свою долю в дележе: +1