#include <iostream>
using namespace std;
int main(){
char c1, s1, c2, s2;
cin >> c1;
cin >> s1;
cin >> c2;
cin >> s2;
bool colComp (c1 - c2 <= 1 && c1 - c2 >= -1), strComp (s1 - s2 <= 1 && s1 - s2 >= -1);
if (c1 == c2 && s1 == s2){
cout << "NO";
}
else if (colComp && strComp){
if (c1 <= 0 || s1 <= 0 || c2 <= 0 || s2 <= 0){
cout << "NO";
}
else {cout << "YES";}
}
else {cout << "NO";}
return 0;
}
Объяснение:
// 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.
Пример:
Вводите: Как найти все слова, где букв - три?
Как все где три