Условие : дана непустая последовательность непустых слов из латинских букв; соседние слова отделены друг от друга запятой, за последним словом – точка. определить количество слов, которые начинаются и оканчиваются одной и той же буквой. код: program stroka; var s: string; i,k: integer; c: char; begin readln(s); c: =s[1]; for i: =1 to length(s) do begin if =',') or (s[i]='.')) and (s[i-1]=c)) then begin inc(k); c: =s[i+1]; end; end; writeln(k); readln; end. код работает через раз. как я понял он сравнивает последнюю букву последнего слова, с самой первой буквой. исправить.
var
s: string;
i, k: Integer;
c: char;
begin
ReadLn(s);
c := s[1];
i:=1;
while i<=Length(s) do
if (s[i]=',') or (s[i]='.') then
begin
if s[i-1]=c then Inc(k);
if s[i]=',' then c := s[i + 1]
else c:='.';
i:=i+2
end
else Inc(i);
Writeln(k);
Readln
end.