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

hekaterina0606 hekaterina0606    3   16.04.2019 23:00    18

Ответы
1939346 1939346  16.04.2019 23:00
const sn=[' ','.',',','!','?'];
 
var s,slovo:string;
    i:integer;
 
begin
  readln(s);
  slovo:='';
  if not (s[length(s)] in sn) then
    s:=s+' ';
  for i:=1 to length(s) do begin
    if not (s[i] in sn) then
      slovo:=slovo+s[i]
    else begin
      if slovo[1]=slovo[length(slovo)] then
        writeln(slovo);
      slovo:='';
    end;
  end;
  readln
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Другие предметы