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

В 7:59 поступил вопрос в раздел Разное, который вызвал затруднения у обучающегося.

Вопрос вызвавший трудности

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

Ответ подготовленный экспертами Учись.Ru

Для того чтобы дать полноценный ответ, был привлечен специалист, который хорошо разбирается требуемой тематике "Разное". Ваш вопрос звучал следующим образом:

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

После проведенного совещания с другими специалистами нашего сервиса, мы склонны полагать, что правильный ответ на заданный вами вопрос будет звучать следующим образом:

var s:string;

start,finish,i:integer;

Begin

  {read(s);}
  s:=I aha, go home i;

  start:=1;

  for i := 2 to length(s)+1 do begin

    if (s[i] in [,,,.]) or (i=length(s)) then begin

      finish:=i-1;

      if s[start]=s[finish] then writeln(copy(s,start, finish-start+1));

      start:=i+1;

    end;

  end;

End.

НЕСКОЛЬКО СЛОВ ОБ АВТОРЕ ЭТОГО ОТВЕТА:

Работы, которые я готовлю для студентов, преподаватели всегда оценивают на отлично. Я занимаюсь написанием студенческих работ уже более 4-х лет. За это время, мне еще ни разу не возвращали выполненную работу на доработку! Если вы желаете заказать у меня помощь оставьте заявку на этом сайте. Ознакомиться с отзывами моих клиентов можно на этой странице.

Кудрявцева Марина Богуславовна - автор студенческих работ, заработанная сумма за  прошлый месяц 56 823 рублей. Её работа началась с того, что она просто откликнулась на эту вакансию