Программа ищет и выводит все трехбуквенные слова, содержащие русские и/или латинские буквы в обоих регистрах. Слова могут разделяться любым количеством любых символов, кроме символа подчеркивания.
// 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.
Пример: Вводите: Как найти все слова, где букв - три? Как все где три
Var s,tmp:string; i,n:integer; flag,word:boolean; function letter (const let:char):boolean; begin if ((let>='a') and (let<='z')) or ((let>='A') and (let<='Z')) then letter:=true else letter:=false; end; begin readln (s); s:=s+' '; n:=length(s); flag:=false; for i:=1 to n do begin if (letter(s[i])) and (not flag) then begin flag:=true; tmp:=''; word:=false; end else if (not letter(s[i])) and (flag) then begin flag:=false; if (word) and (not (tmp='')) then writeln (tmp); end; if (flag) then begin tmp:=tmp+s[i]; if (s[i]='k') then word:=true; end; end; end.
1) 88,3
2) 94,1
Объяснение:
вот так вот