// 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.
Тестовое решение: Вводите: дед иван достал наган и пошел с ним в шалаш дед наган шалаш
Язык неважен? Вот на с#.
public static void Main()
{
var num = int.Parse(Console.ReadLine());
string[] str = new string[] { " _~_ "," (o o) "," / V \\ "," /(_)\\ "," ^^ ^^ "};
foreach (var s in str)
{
for (int ii = 0; ii < num; ii++)Console.Write(s);
Console.WriteLine();
}
}
Объяснение: