Исполнитель Робот умеет перемещаться по лабиринту, начерченному на плоскости, разбитой на клетки Между соседними (по сторонам) клетками может стоять стена, через которую Робот пройти не может. Робота есть девять команд. Четыре команды - это команды-приказы: Вверх вниз влево вправо Также у Робота есть команда закрасить, при которой закрашивается клетка, в которой Робот находитс. В настоящий момент. Ещё четыре команды — это команды проверки условий. Эти команды проверяют, свободен ли путь дл. Робота в каждом из четырёх возможных направлений: сверху свободно снизу свободно слева свободно справа свободно Для повторения последовательности команд можно использовать цикл «пока», имеющий следующи Вид: нц пока условие последовательность команд кц Выполните задание. P P resory rtors
class SearchPalin{
public static void main(String args[]){
String palinString = new java.util.Scanner(System.in).nextLine();
System.out.print("\nПалиндром(-ы):\n ");
for(int wordStart = 0, wordEnd = 0; wordEnd<palinString.length(); wordEnd++)
if(wordEnd+1==palinString.length() || palinString.charAt(wordEnd+1)==' '){
String wordBeginning = "", wordEnding = "";
for(int wordBe = wordStart;wordBe<wordEnd+1;wordBe++)wordBeginning+=palinString.charAt(wordBe);
for(int wordEn = wordEnd;wordStart-1<wordEn;wordEn--)wordEnding+=palinString.charAt(wordEn);
if(wordBeginning.equals(wordEnding)){
for(int palinWord = wordStart;palinWord<=wordEnd;palinWord++)System.out.print(palinString.charAt(palinWord));
System.out.print("\n ");
} wordStart = wordEnd+2;
}
}
}
begin
var s:=ReadLnString('Вводите:');
s.ToWords.Where(x->x=ReverseString(x)).PrintLn;
end.
Тестовое решение:
Вводите: дед иван достал наган и пошел с ним в шалаш
дед наган и с в шалаш
Вариант, если исключить однобуквенные:
// PascalABC.NET 3.0, сборка 1139 от 10.01.2016
begin
var s:=ReadLnString('Вводите:');
s.ToWords.Where(x->x=ReverseString(x)).
Where(x->x.Length>1).PrintLn;
end.
Тестовое решение:
Вводите: дед иван достал наган и пошел с ним в шалаш
дед наган шалаш