// PascalABC.NET 3.0, сборка 1139 от 10.01.2016 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.
Тестовое решение: Вводите: дед иван достал наган и пошел с ним в шалаш дед наган шалаш
надеюсь, ответ вас устроит. Вот код:
import random
tasks = []
questions = []
print('вводите задания, для окончания записи введите "STOP"')
while True:
inp = input()
if inp != 'STOP':
tasks.append(inp)
print('задание записано')
else:
break
print('вводите вопросы, для окончания записи введите "STOP"')
while True:
inp = input()
if inp != 'STOP':
questions.append(inp)
print('вопрос записан')
else:
break
print('игра началась!')
while True:
if input('Правда или действие?:') == 'Правда':
print(random.choice(questions))
else:
print(random.choice(tasks))