Задача со строкой

[hicmoon]

Пожалуйста, помогите с задачей поиска количества слов в строке, которые оканчиваются и начинаются с одной и той же буквы. Как написать код именно в СИ?
Просмотрены темы форума, но ничего работающего так и не найдено.

[Aleksandr H.]

С паскаля сможешь перекласть?

uses crt;
var s,w:string;
c:char;i,k:integer;
begin
clrscr;
k:=0;
readln(s);
s:= s+' ';
for i := 1 to length (s) do
    begin
         if s[i] <>' ' then
            w:=w+s[i]
         else
         begin
              if (w[1] = w[length(w)]) and (length(w) > 1) then
                 begin
                                  inc(k);
                                  writeln(k,': ',w);
                                  w := ''
                 end
         end;
    end;
writeln(k,' slow');
readln;
end.

[Stilet]

ничего работающего так и не найдено.

Хм... Даже здесь (http://www.programmersforum.ru/showthread.php?t=284522) намека на решение не нашел?
Или требуется классическое Си?
Или вот: http://www.programmersforum.ru/showthread.php?t=214478
Только условием будет

if(c[0]==c[strlen(c)])