в строке подсчитать количество слов которые одинаково начинаются и заканчиваются!? Опции

[PORTUGAL]

Здравствуйте! Сейчас решаю задачи по паскалю и застрял вот на чем: во введенной строке нужно подсчитать количество слов которые одинаково начинаются и заканчиваются, как это реализовать?

[volvo]

Не могу понять в чем проблема!?

Ну, как же, у тебя слово ограничивается ТОЛЬКО пробелом или завершающей точкой, если последним символом строки точки не будет, то последнее слово просто не анализируется, т.к.

   if (st[i]=' ') or ((st[i]='.')) then begin
     { сюда программа просто не заходит ... }
     sl:=copy(st,beg,i-beg);
     if sl[1]=sl[length(sl)] then inc(kol);
     beg:=i+1;
   end;

измени цикл вот так, все должно работать:

for i:= 1 to length(st) do begin

  if (st[i]=' ') or ((st[i]='.')) or (i = length(st)) then begin
    if i = length(st) then sl := copy(st, beg, 255)
    else sl:=copy(st,beg,i-beg);

    if sl[1]=sl[length(sl)] then inc(kol);
    beg:=i+1;
  end;

end;

или еще проще:

write('Vvedite stroku: '); readln(st);
if st[length(st)] <> '.' then st := st + '.';