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