Паскаль.

Дана строка, состоящая из латинских букв. Последовательность подряд идущих букв образует слово. Между соседними словам - один пробел.

а) Напечатать текст, составленный из последних букв всех слов

б) напечатать эту же последовательность слов, удалив из нее слова-палиндромы (читающиеся одинаково слева на право и с право на лева)

var

s: string;

begin

readln (s) ; / / s : = 'Привет дорогой мир шалаш кроет';

write ('a) ') ;

foreach s1: string in s. Split (' ') do

write (s1. last ()) ;

write (#13 + 'b) ') ;

foreach s1: string in s. Split (' ') do

begin

var b: boolean : = true;

var i: byte : = 1;

while (i < = length (s1) / 2) and b do

begin

b : = (s1[i] = s1[length (s1) - i + 1]) ;

Inc (i) ;

end;

if (not b) then

write (s1, ' ') ;

end;

end.