// PascalABC.NET 3.0, сборка 1139 от 10.01.2016
begin
var s:=ReadLnString('Вводите:');
s.ToWords.Where(x->x=ReverseString(x)).PrintLn;
end.
<u><em>Тестовое решение:</em></u>
Вводите: дед иван достал наган и пошел с ним в шалаш
дед наган и с в шалаш
<u>Вариант, если исключить однобуквенные:</u>
// 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.
<u><em>Тестовое решение:</em></u>
Вводите: дед иван достал наган и пошел с ним в шалаш
дед наган шалаш
Вначале переведём всё в десятичную систему счисления - 2538+759 = 3297.
А теперь переведём в двоичную - 110011100001
1)
Назад
Вперёд
Вперёд
Вперёд
Вперёд
2) Вперёд
Вперёд
Вперёд
Повернуть налево
Вперёд
Назад
Назад
Назад
Назад
3) Назад
Пока не повторять
Назад
Назад
Повернуть направо
Назад
4) Пока не (сокровища) повторять
Вперёд
Вперёд
Вперёд
Повернуть налево
Вперёд
5) Пока не (сокровища) повторять
Если позади знак проход запрещён, выполнить поворот налево
Иначе назад
Пока не (сокровища) повторять
Если слева знак проход запрещён
Выполнить Вперёд
Иначе поворот налево и Вперёд
7) Пока не (сокровища) повторять
Вперёд
Если впереди драгоценный камень, выполнить Вперёд
Если справа НЕ знак проход запрещён, выполнить поворот направо
Если впереди знак проход запрещён, выполнить поворот налево
8) Пока не (сокровища) повторять
Вперёд
Если впереди проход запрещён, выполнить поворот налево и
Вперёд
Если справа НЕ знак проход запрещён, выполнить поворот направо
9) Пока не (сокровища) повторять
Вперёд
Если впереди драгоценный камень, выполнить поворот направо
10) Пока не (сокровища) повторять
Вперёд
Если впереди знак прохода нет, выполнить поворот налево и
Вперёд
<span> </span>
Это_____справка____________)
var prod,i:integer;
begin
prod:=1;
for i:=10 to 99 do
if(i mod 15=0) then prod:=prod*i;
writeln(prod)
end.