В строке указать те слова, которые начинаются и оканчиваются одной и той же буквой

@miuira · Регистрация: 13.01.2014

Студворк — интернет-сервис помощи студентам

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

Вот нароботки, но как сделать чтобы программа работала, если в конце строки поставили точку?

Pascal

program one;
 
uses crt;
 
var
  s, s1: string;
 
begin
  clrscr;
  write('Введите строку: ');
  readln(s);
  s := s + ' ';
  while Pos(' ', s) > 0 do
  begin
    s1 := Copy(s, 1, Pos(' ', s) - 1);
    Delete(s, 1, Pos(' ', s));
    if s1 <> '' then
      if s1[1] = s1[Length(s1)] then writeln(s1);
  end;
  readln;
  readkey;
end.

@APALoff · 14.01.2014, 12:27

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

@APALoff 1646 / 1075 / 1081 Регистрация: 03.07.2013 Сообщений: 4,507
	14.01.2014, 12:27	2
	Найти в строке те слова, которые начинаются и оканчиваются одной и той же буквой. 0

Опции темы