Программа ищет и выводит все трехбуквенные слова, содержащие русские и/или латинские буквы в обоих регистрах. Слова могут разделяться любым количеством любых символов, кроме символа подчеркивания.
// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!
begin
var s:=ReadlnString('Вводите:');
var m:=s.Matches('\b\w{3}\b');
if m.Count>0 then m.Println
else Writeln('Нет трехбуквенных слов')
end.
Пример:
Вводите: Как найти все слова, где букв - три?
Как все где три