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

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

Задать свой вопрос
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 lt;= 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.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт