количество слов, первая и последняя буква которых совпадают

[gred]

Кто сможет помогите сделать немогу уже
1.количество слов, первая и последняя буква которых совпадают
2.словарь русско английских слов(русское слово английское) удалить повторения
зар спс

[gred]

2 - всё получилась тольк первую сделайте плз

[Arkuz]

Писал в блокноте, не проверял, но по логике должно работать...

Но по идее последнее слово не обработает, т.к. нет пробела. Ну можно после считывания сnроки добавить в конец пробел: s:=s+' ';

b:=0
for i:=1 to dlina do  {перебор от 1 до последнего символа начальной строки, ту которую вводим}
  begin
    j:=j+1; {счётчик символов до пробела}
    k:=k+1;{счётчик всех символов}
    if ord(s[i])=32 then  {если равно пробелу}
       begin
        g:=k-(j-1); {получаем позицию начала слова}
        if s[g]=s[k-1] then b:=b+1; {счётчик слов с одинаковыми 1 и последними буквами}
        j:=0; {обнуление символов до пробела, для дальнейшей проверки}
       end;
  end;

[Arkuz]

ВУАЛЯ!!! РАБОТАЕТ!!!

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var s:string;
    i,h,g,j,k,b,dlina:byte;
begin
  write('Vvedite slovo: ');
  readln(s);
  s:=s+' ';
  dlina:=length(s);
  b:=0;
  for i:=1 to dlina do  {перебор от 1 до последнего символа начальной строки, ту которую вводим}
  begin   
    j:=j+1; {счётчик символов до пробела}
    k:=k+1;{счётчик всех символов}   
    if ord(s[i])=32 then  {если равно пробелу}   
       begin   
        g:=k-(j-1); {получаем позицию начала слова}   
        if s[g]=s[k-1] then b:=b+1; {счётчик слов с одинаковыми 1 и последними буквами}   
        j:=0; {обнуление символов до пробела, для дальнейшей проверки}   
       end;   
  end;
  writeln('Kolichestvo slov s odinakovimi pervoi i poslednei bukvami - ',b);
  readln;
end.

[aleandr]

Сообщение от Arkuz

ВУАЛЯ!!! РАБОТАЕТ!!!

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var s:string;
    i,h,g,j,k,b,dlina:byte;
begin
  write('Vvedite slovo: ');
  readln(s);
  s:=s+' ';
  dlina:=length(s);
  b:=0;
  for i:=1 to dlina do  {перебор от 1 до последнего символа начальной строки, ту которую вводим}
  begin   
    j:=j+1; {счётчик символов до пробела}
    k:=k+1;{счётчик всех символов}   
    if ord(s[i])=32 then  {если равно пробелу}   
       begin   
        g:=k-(j-1); {получаем позицию начала слова}   
        if s[g]=s[k-1] then b:=b+1; {счётчик слов с одинаковыми 1 и последними буквами}   
        j:=0; {обнуление символов до пробела, для дальнейшей проверки}   
       end;   
  end;
  writeln('Kolichestvo slov s odinakovimi pervoi i poslednei bukvami - ',b);
  readln;
end.

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