Работа 3.8 Упр.17 ГДЗ Семакин 10 класс (Информатика)

Задача

Дана строка. Найти в ней те слова, которые начинаются и оканчиваются одной и той же буквой.

Подробный ответ

Сначала уберём из строки все пробелы, чтобы получить подряд идущие символы слова. Затем будем просматривать строку посимвольно и накапливать текущее слово в переменной a.

Когда встречается пробел или конец строки, слово считается завершённым. Тогда проверяем, совпадают ли первая и последняя буквы слова: $$a[1] = a[\text{length}(a)]$$. Если совпадают, выводим это слово.

var
  s, a: string;
  i: integer;
begin
  readln(s);
  for i := 1 to length(s) do
  begin
    if s[i] <> ‘ ‘ then a := a + s[i];
    if (s[i] = ‘ ‘) or (i = length(s)) then
    begin
      if a[1] = a[length(a)] then writeln(a);
      a := »;
    end;
  end;
end.