// 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.
Тестовое решение: Вводите: дед иван достал наган и пошел с ним в шалаш дед наган шалаш
Program yjuufyj7;
var a,b,c
begin
read(a,b,c);
if a>(b+с) then writeln(a+b) else writeln("нет");
end.
Это на Паскале, если нужен другой язык пиши в ЛС
Решение в Кумире
цел а,б,с
алг
нач
ввод а,б,с если а>(б+с) то вывод а+б иначе вывод "нет" все
кон