1. Найти коды первой, третьей и последней буквы вашего имени, используя функции LEFT$, MID$ и RIGHT$. 2. Если число символов в вашем имени больше, чем число символов в фамилии, напечатать имя и фамилию, иначе напечатать только фамилию.
3. Вывести на печать первую букву вашего имени, точку, пробел и фамилию, например, М. Кostrovs.
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.
Тестовое решение:
Вводите: дед иван достал наган и пошел с ним в шалаш
дед наган шалаш