Question

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

Answer 1

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.