Задача: Дана строка. Определить сколько слов в строке начинается с той же буквы, которой закончилось предыдущее предложение.
Вот составил программу, но она почему то не считает первое слово, если оно начинается на последнюю букву предлжения.
Код:
program stroka;
uses crt;
var a:string; i,k:integer;
begin
clrscr;
Writeln ('Введите строку: ');
read (a);
k:=0;
for I:=1 to length(a) do
if (a[i]=a[length(a)]) and (a[i-1]=' ') then k:=k+1;
Writeln ('Кол-во слов равно: ',k);
readkey;
end.
Админ: Не забываем про теги!
Подскажите что не так пожалуйста!